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GEBRU^l^ERS CLUB 



een club van 6502 
□ebruikers 



Het doel van de yereniaina is: het bevorderen van de kennisuitwisselina 
typen de aebruikers van 6502-comouters, zoals KIM, SYM, JUNIOR, fiIM-65 
SYSTEM 65, flCORN, PET en CBM, OPPLE, CHE-1 OTORI de Proton-cnmnntorc 
ITT 2020, PEflRCOM, PC-100, OSI, BBC VIC-26 en COMMODORE 64 
PflLLfiS, SBC 65/68, FORMOSfi, ORIC-l,'fiCE 1000 KEMPflC Svltem 
MINTfl, enz. enz. 

KF^tsn?"I?iMil«''^^^^^i'?'? aerealiseerd door zesmaal oer laar 

Uh 6502 KENNER te Dubliceren, vi.if maal per laar clubbi leenkomsten' te 
houden een cassettebibliotheek in stand te houden en Dane rwa re-service 
te bieden. Daarnaast oraaniseren de leden zelf reaionale 



BASIS 108, 
4. NCS 6502, 



bi 1 eenkomst en. 



Verschijninqsdata 
DE 6502 KENNER 



Bij eenkomsten 
van de club 



derde zaterdao 
van de maanden: 
februari 
aoril, juni 
august us 
oktober 
deceiYiber 

Reqio Den Haaa/R'dam e. 0. 

Inl. Gerard van Roekel 

V. d. PaliYistraat 11-C 
3135 LK Vlaardinaen 
Tel. : 010 - 351101 



derde zaterdao 
van de maanden s 
januari 
maa rt 
mei 

seotember 
november 

Reqio flrnhem e. 0. 

le en 3e Ma-avond v. d. inaand 
in HET DORP 

(zaal wordt aanaeqeven in de 
hal van de oersoneelsf lat ) 
Inl. : Henk Deutekom 

Tel. : 08303 - 8987 

De KIM GEBRUIKERS CLUB NEDERLflND is een volledia onaf hankel i ike vereni- 
ginq met Stat uten en een bestuur. De club is inaeschreven bi 1 de Kamer 
van KooDhandel en Fabrieken voor Hollands Noorderkwart ier te filkmaar 
onder nummer 634305. 

Samenstell inq van het bestuur is thans als volot: 



Voorzitter: 



Erevoorzitter: 
Sekretaris: 



Penn i ng meest e r : 



Ledenadininist rat ie: 
Redaktie DE 6502 KENNER 



Hard-/Software: 



Promotie: 
Ereleden: 

fid res van de vereniainai 
L i dmaat schaopen : 



ftdvertentietari even : 



Daoe 1 i Iks _besj uu.r : 
Rinus Vieesch-Dubois 
Fl. Niaht inoalestraat 



2037 NG Haarlem 
Sieo de Vries 
Ruud Uohoff 
Voorburooad 10 
6843 EM'Rrnhem 



?12 



(023 - 330993) 



(085 
(19. 00 
- Burahoorn 
zie bi ] sekretaris 



Riet Uohoff 
voor ad res: 
Led en: 

F?uud Uohoff (zie bi j sekr. ) 
Willem L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Krimoen a.d. IJssel 



- 816935) 
- 20. 00 



(01807 
(05490 ■ 
(01807 - 
(05490 ■ 
(070 
Van der 



■ 19881 ) 
• 51151) 

■ 20589) 

■ 71416) 

■ 931417) 
Winden 



fidri Hankel 
John van Sorana 
Erwin Visschedi ik 
Jan Tomoot 
Mw. H. de Vries - 
finton Mueller 
zie adres sekretaris 
F1.45, = per kalender.jaar, oostreke- 
nina 3757649 t.n. v. KIM Bebruikers 
Club te ftrnhem 
Od aanvraaa bi 1 de redaktie 
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KEIMMER 



OE 6502 KENNER is een 
iiloMK wm M fSB iiiinti- 
Club NHterluKi. 

van en reakties od art i He- 
len vflor DE 5502 KENNER: 

Uillea L. van Pelt. 
Jacob Jordaensstraat 15. 
i^'Si ^j«iPiiliR:]>EN 

ijssa. 

Tel. : 01807 - 19881 

Redaktie DE 6502 KENNER: 
Vaste medeMerkers: 

Uillett van Pelt 
Berard van Roekel 

Fnelancc wdiMf rkm: 

Mri Hankel 

Hernan Kuvvenhoven 
Roaer Lanaeveld 



Ita van Nietwenftew 



overnane van de inhoud 
van DE 6502 KENNER zonder 
ffiiiliiii^iw mii'-Wt ■'br- 
stuur is verboden. Toeoas- 
sinq van aeoubliceerde 

is alleen toeqestaan voor 
oersoonliik qebruik. 

DE 6502 KENNER verschi mt 
6 X oer laar en heeft een 

CoDvriqht (C) 1984 KIM 
i^Miii &^ NeiierlMd. 

De vooroaqina is een aaua- 
Rinai VlRsch Dubois 



INH0UDS0P6AVE DE 6502 KENhER NR. 32 Ml 1984 

1. Van het bestuur 

2. Van de redaktie 

3. BASIC 

' Uerken wt de Basic-f«M»IP 
... Ronald Vink 
KIN-1 and JUNIOR KB-9 Basic 
Tokenized Microsoft Basic KevNords mi addresses 
... Mil lea L. van Pelt 
SYH-1 Basic voor KIM-1 en JLWIOR 
Aanoassen reaelbreedte vit bll tMMiiiffii 
. . . Frans Saeehui izen 
KB-9 Basic 
lOBflSIC 

Micro-ADE files inlezen irt i^ic 
... Sebo Woldrinah 
Extended AIM Basic JUNIOR 
Patch on: Basic Proaran Coaoressor 
... H«t»iletijdt 

4. TiDS I Tricks 

... Wout van Dinther en Gerard van Roekel 

5. CoModore-64 

Telex aan C-64 ListiM CMverttr 
... Fer Weber 

Coul-80 en CoModore 64 

6. OSI SPB II Disasseabler 
... E,J.ft. SmimrarM 

7. Beta-coiDuter 

Het oooulair wetenschaooelijk tijdschrift KIJK 
lanceerde de BETA, een zelfbouHCOtimler vsor 
de beqinnend soldeerboutartiest. 

8. FORTH 

Forth Editor GebruikerstMrndleidim 
... Uout van Dinther 

Toners of Hanoi 

Een recursief oroqrattM 

... Peter ten Have 

9. C{MAL*K6N 

Brief aan de redaktie 
... Frans P.fl. Bakx 

10. JUNIOR CoMund Characters 
... Gtum Klcioesl, Frmkrijk 

11. BflSICODE 

Basicode-2 voor de JUNIOR set SYM-Basic 
... Fridtts JiMfAtan 

12. HexduiD routine voor de Senior Monitor 

Een orograMa voor JUNIOR aet Proton's nonitor 

13. Print en od STAR DP 510 Printtr 
MardMare aanDassirn 

... J.A.N. vim^^tm 

14. UART-schakelino voor JUNKffi 
... A. A. Zwart 

15. Textfiles with JUNIOR 
... Caaiel de Ly, Btlgie 

Ifi, Vriao en ftmbod 

17. NMtectelinseft 
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Uamwtr ie als nieuw lid m mm stm if tmm vsor 
het eerst leest. zullen em aantil lahp fiin onoevallen. 
Als eerste tie eiqen still van het bliid tel vele listinos 
in aachinetaal en de or«te hoeveelheid tins oa de diverse 
systeaen noa verdcf it jerfectioneren. Vooral de aebrui- 
kers van AIl4 65. KIM. AMIOR. SYH. PET. mE-ceaouters 
zi.in ruia verteoenNoordiod. 

ly tHeede ount is. dat ens blad vri iHel aeen advertenties 
iivat. Iht koat. oadat het uitaanasount is. dat de leden 
van de club zelf tanalwi wat vaar artikelen uiteindeliik 
in het clubblid gi»iaitit 

leder idee in de vora van een orooraaM, een stukie hard- 
ware of een tio is bii de redaktie Helkoa. Hoe siaoel het 
idee ook voor lezelf lijkt, een ander ken «f ace oeholoen 

ziin. 

Er ziin in de afoelooen laren ook veel coaolete m^tpn 
on de aarkt aekoaen. welke een 6502 aicroorocessor oevat* 
ten. Vooral de de Coaaodore 64, de RCORN en BBC- 

coBouter ziin Mervin e«R ysorbeeld. De orooraaaa's voor 
deze coflouters Horden doar onze Imim xm niet in srote 
hoeveelheden aanoedraoen. Dat is laaief. het uititra- 
lingseffekt naar niet-leden aet deze aachines bliift dan 
onder de aaat. terwiil daaronder Hellicht aoaeliike inzen- 
ders kunnen zitten. Die kunt U alleen aaar orikkelen door 
Um eiaen kennis. artikeliK, mmmmf'i e.d. te oublice- 

Schrtw dus niet, en stttur mhb een orearaaaa in. 
Ifvent Mil II tilt Iwm uimm m ome cassette-biblio- 
theek en de orooraaaa's ile biH^tbaar ziin. Vanzelfsore- 
kend mrdt voor dit 'oersiiscfad* een veraoedino oevraaod 
llf dekkino van de kosten. 

iize landeliike en reoionale biieenkoasten ziin veelal een 
sitGCBS. Dit si«QE»Ni. ip^.mil^Ileen beoaald door de acco- 
•wtitic en de ilMttim ^mm mo veel aeer door U. de le- 
d«t ielf, MfiM mtii ttiet Uh svsteea aee te brenaen. 
Kant iUmm im im inforeatie ooed uitoeNisseld Norden. 
Ik roeo w^mtMf d«r aok oo deze b|MiMMMi&»n zoveel ao- 
felijk te ^fmxSmt l^ooral nu Me vabr deJandeliike bii- 
eenkoisteii Mi MtfceQeld hebben kunnen verlaoen. 
De biiRnkmii os zaterdao 13 aei te RijsMi ik was een suc- 
ces. De ookoast oroot. fbt aanlal aeeoebrachte svsteaen 
overtrof de verHachtina. De g4%ef iMet ml ooed ziin, als 
er zelfs leden koaen uit Haarssen. Vije^ iMi Niieeocnl. 
Uaqeninoen. LAewerden. etc., etc. 
1^ Miea te aeer oa als lid van de club nieuMe leden |t 
mrmt, 

Jan Toaoot. 
Proaotor. 



ViVffi EN iMD 



Te kosBi 

S^^art m m 5 1/4 inch 
fioioy disk drive, simile 
tilted, sinole deraitv, salinr 
temtiHN. ait ii>k«aentatie. 
Priis 1 fl. m.^ 
Te bevraoen bii : 
A. Mueller 
Tel. s 020 - B60245 



DIVERSEN 

Heeft U orooraaaa's uit 0£ 
6502 KEMCR of uit andere 
tiliKies mema^ am Ui ei- 
p» cMHiHtir? Simr iize oo 
ma iitnitidie. 
&i peiiklie zaekt ook leden 
die ervarina hebben aet het 
Elektuur CPU-board en/of 
lichtoen en softMare ervear. 



Een analyse van de beHeoinoen welke zich in de club voftp- 
doen is geen geaakkeli.ike ooqave. De inforaatie Melke er- 
voor nodio is koat veelal te laat of ontbreekt in het oe- 
heel. Dat is niet zo venioderliik in een oeaeenschao Naar 
iedereen toch het liefst zich ontsoannend beziq houdt. 
Toch veraoed ik er een oaradox Helke velen over het hoofd 
zien. al heb ik het er zo af en toe wel over. 
Oo de redaktie neaen He Maar dat de hobby vriiwel niaaer 
een ootiaale aanwleqenheid Hordt als je je alleen aaar 
terugtrekt in je naar eioen behoeften en saaak inoerichte 
huiselijke ookaaert.ie, dikttijls oo zolder. af en toe ge- 
stoord door de Hitte tornado van andere huisaenoten. De 
hobby verat het kontakt aet en de Maarneainc van anderaans 
kennis. Daaroa zijn He ook lid oeHorden van de club, die 
in die behoefte o.a. voorziet door DE 6502 KENNER. Leden 
van de club dragen er zorg voor dat hun kennis door aiddel 
van dat kontakt Mordt overgedraoen. Zouden de beHeoinoen 
in de club in ^^n richtino gaan, dan kan dat tenoevoloe 
hebben dat He afglijden in een lanozaaa aaar zeker ver- 
schralende hoeveelheid inforaatie, nelke een effekt ftr- 
teert aet een negatieve soiraalHerkings het is ainder IfHtt 
te lezen. ainder insoirerend. ainder uitnodioend de coov- 
buffer te bliiven vullen, er zeggen leden oo. daardoor zal 
er ainder inaezonden Horden. Haardoor de f^||pil. verier 
verschralen, Haardoor de edities ainder intfnimli iwrilfl 
en Haardoor neer leden vertrekken ... etc. 
Vandaar dat He ook hebben oooeroeoen aee te Herken aan de 
in het voorjaar begonnen ledennerving. Diverse bedriiven, 
H.o. DIL-Electronica. de Bijenkorf coaouter corners. 6aae 
Uorld, Gorissen, DCS, e.a. nerken aee aan het bekendheid 
geven aan ons bestaan. Maar ook de leden hebben zich niet 
onbetuigd gelaten. Zij die kontakt hUkhm aet ite redaltie. 
ielirifteliik, ontvinoen een aana^Mnifvflttlitl' Mrt de 
ooroeo 'Nf^ EEN VRIEDD LID!. 

Dat het Herkt, hebben ne oo de redaktie oezien. Soaainn 
stuurden de inoevulde foraulieren Kii,di redjM(|if tar«tl» 
ingiwll dMr een nieun lid. Het'ml'ovail fi Mftont M 
de ■emen zo Qeiieldio aeenerken. 

Oe redaktie en het bestuur versturen ook inforaatie naar 
diegenen die nog geen lid zijn aaar nel 65XX aachines heb- 
ben.' Bovendien liorden svsteaatisch ootentiele leden uitoe*- 
iHHtig^ naar londeiijke en reoionale bi jeenkoasten te koaen^ 
HH iMdtaal «aa er ziin: tegenover het oebruikeliike qe- 
Iti aan oozeaaingen naren er oer 1 aoril bi.ina evenveel 
WiettNe aanaeldingen! Die toeitreaina zal niet het hele 
jaar dezelfde oavana behouden. aaar het oeeft de buraer 
Hel aoed. Dank zij Oh insoanninoen! En U kunt ervan verze- 
kerd zi jn dat het yggp dl inhMd van de cooy-buffer al de 
nodioe vruchten hi^ w^mmn. Je aoet ie toch Nit lim 
keer bedenken eer je zoiets vaamel zou zedoen ... 
Het coaoroais dat He aoeten aaken tussen de van de leden 
gevraagde laarliikse biidrage en het aantal beschikbare 
pagina s veroorzaakt dat ne het voloend jaar nel neer een 
ZBSde iditie zouden kunnen uitoeven. in olaats van de oe- 
bfidlnrlijke vijf. Naar daarvoor is geld nodig. Dus. ne ao- 
gen onszelf niet in slaao sussen aet de oedachte dat het 
zo lekker looot. Ue aoeten aet z'n alien de schouders er- 
onder zetten, ne aoeten het ledental echt oahooo Netan te 
krijgen in het besef dat aeer leden ook aeer aogelijlttt- 
den oeeft tot aeer kaniuiitMiMiUHu, 
Nooe dit nuaaer stiKiili iift1lM|l M^I^Wb m het aet z'n 
alien ook Hi 11m, 



Hi Ilea L. van F^lt 
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0010 s 
0020 s 
0O30e 
0040: 
O050« 

ooeo: 

00701 

ooao: 

0090! 
01008 
OllOi 
01201 
01301 
0140t 
OlSOt 
OlSOt 
0170! 

oiaoi 

0190« 
02001 
02101 
0220! 
0230: 
0240! 
0250! 
0260! 
0270! 
0280: 
0290! 
0300: 
03101 
03^1 
0330! 
0340! 
035QI 

o:^! 

0370! 
0380: 
0390! 
0400: 
0410! 
0420: 
0430: 
0440! 
0450! 
0460: 
0470: 
0480: 
04901 
OSOO! 
0510! 
0520: 
0530! 
0540! 
0550! 
0560: 
0570: 
0580: 
0590: 
0600: 
O&IO: 
0620: 
0630! 
0640: 



* DIT PROGRflMMfl IS GEINSPIREERD DOOR HET flRTIKEL IN 6502 ♦ 
« KENNER NR. 25 OVER HET 6EBRUIK VAN DE VIA. # 

* DOOR HET KEYBOARD PARALLEL IN TE LEZEN IS HIT mQm:tM ♦ 
« OM IN BASIC MET DE FUNCTIE GET TE WERKEN. * 
« HET PR06RAMMA BESTAAT UIT VIER DELEN: • 

* 1- DE INITIALISATIE VAN DE VIA BIJ GEWOON 6EBRUIK * 

* 2- DE NIEUWE RECCHA ROUTINE * 
» 3- m INITIftLlSflTlg VOOR DE SET FUNCTIE « 
« 4- m SET RCWf fit * 

* * 

* VAN DE VIA WORDEN DE VOLGENDE LIJNEN eEtfliltlCT: « 

* PA0-PA6 DATA INPUT VAN HET KEYBOARD « 

* PA7 KEY-DOWN VAN HET KEYKJflRD * 

* CAl STROBE INPUT ♦ 
» * 

* OP HET KEYBOARD-DECODER IC DE AY-5-2376 IS PUNT * 
« SEEN STROBE OUTPUT MAAR EEN KEYDOWN OUTPUT. VM «t * 
t MiTENSCHAP MAAK IK DAN OQK HipCiAftR @E|SyiK« * 



DOOR: RONALD VINK 

KELTENOORD 35 
3079 ZD ROTTiaWl* 
010-835178 



oo^ 






KEYPAR 


0R6 


«0C60 




62 


m 


CHABUF 


* 


♦1A62 




01 


18 


DRA 


* 


«1801 




03 


18 


Dom 


ft 


«1803 




OB 


18 


ACR 


m 


«180B 






18 


PCR 


« 


«180C 




i 


18 


IFR 


« 


$180D 


0C80 


A9 00 




INIT 


imm «oo 


0C82 


8D OC 


18 




wtm 


l*OR 


0C85 8D 03 18 




STft 


DORA 


12AE 








0R6 


«12AE 



SERIEEL KftRAKTERBUFFER 



12AE 
12B0 
12B3 
12B6 
12B8 
12BB 
12BD 
12C0 
12C2 
12C5 



A9 01 
8D OB 18 
AD 01 
A9 02 
2C OD 18 
FO FB 
AD 01 
29 7F 
8D 62 lA 
60 



19 



18 



mXXm LDAIM *01 
STA ACR 

%m mi 

BIT IFR 
BEQ FLAG 
LDA DRA 
ANDIM *7F 
STA 
RTS 



INITIALISATIE BIJ EEN RESET 

CAl INPUT REASEERT OP NE6. FLANK 

POpiT ft IS INPUT 



OM DE DATA TE BEWAREN MOET 
POORT A SELATCHED WORDEN 
DUMMY READ OM CAl VLAS TE RESETTEN 
SELECTEER BIT 1 
IS CAl FLAG SESET ? 
NEE, WACHT OP ZETTEN VAN CAl VLAB 
J A, HAAL DATA EN RESET CAl FLAG 
MAAK MS-BIT 0 
CHflBUF BEWAAR TOETS IN Kftfl»ST|ai-lU|-FER 
EINDE ROUTINE , 



12C6 A9 00 
12C8 8D OB 
12CB AD 01 
12CE 30 02 
12D0 A9 00 
12D2 29 7F 
12D4 8D 62 
12D7 60 



18 
16 



lA 



SET 



UQflIM too 
ma ACR 
LDA DRA 
BMI TOETS 
LDAIM «00 
TOETS ANDIM *7F 



DISABLE LATCHINS POORT A 
HAAL DATA VAN POORT A OP 
ALS TOETS DAN IS BIT 7 EEN 1 
LAAD ACCU MET DEFAULT WAARDE 
MAAK MS-BIT LAAG 
CHABl^ BEWAAR KARAKTER IN SUFFER 
EINDE ROUTINE 
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Bezitters van de eiektuur floppy i nterf accKaart 

Bez i t u een floppy drive sonde r head i oad en de 
motor I oopt Konstant. dan ziJn binnen de korste 
tIJd uw floppy's voorsien van gat en. Met dit 
schema wordt de motor sestopt. Indien ©r wel 
sprake is van head I oad '.'^Ip '» lt|. Mi Jzisen- 

i n 2> 2K. ' • • , 

< hea#rt#i Mt ) zmmvmm 4«(t' k&» din^kt na 
stoit«n van d» kiep op d« schUf tuordt 



•C II > 




Wout van D inter 



^ummmm vmn de VDU-Eprbm 



M##t b«staande software t en dan praat iK over bestaanil* iMCl^(f)«rlMMl,( 
routines ) moeten aanaepast worden aan o. a. het ad res van de ®iiis»tit-"te!u*l**» 
ais men een VDU-haart heeft. HierbiJ behoort eerst h#t a-f te druk««tt 
Character sepiaatst te worden in ad res 23E3. Hier is d i kw i J I s seen Plaats 
nieer voor, of men moet aile spronaadressen veranderen en aanpassen. Door 
nu onderstaande adressen te vulien in de VDU-Eprom kan men, waar eerst 
4C 03 F2 atond nu 4C 00 FB neerzetten. Dit is ai door enkeie i eden sedaan 
waardoor ondernnse softMare-uitwissei in« sehanclNiipfti biiJft. 



eo E3 23 
4C 00 F0 



STft «23B3 

JMP *Fma 

mu - dL 0 



Wout van D inter 



Om m&t een ntHKBim prograwma te besinnen is het verstand i g otn de instruktie 
"NEW" te sebrtoitSen. Ma return komt u tot de ontdekh i ng dat het programma 
nog n i et op de band staat. Geiukkig is het prosraitima n i ©t echt wes. Met 
onderstaande hand lei ding is mmmtHM em mf% wrcwramma oP«f#«*( %e 

starten met "LIST" of "RUN", 

Ga over op machinetaai iMWf een hexdump van de eer»te 8(9i b|»1M»« 'V«Sfij(#' 
besin BRSIC-ROM. 

8 ■ 1 t 3 4 5 6 7 



vooiiiiLS* 



8 9 ft B C D & P 

20008 00 00 00 0ft 00 97 22 48 41 4C 4C 4F 20 4fi 55 4E 

2010: 49 4F 52 22 00 IE 20 14 00 88 20 34 30 00 33 20 

2020! IE 00 Sft 20 41 20 FIC 20 31 20 9E 20 34 20 fll 20 

2030: 35 30 00 42 20 2B 00 97 22 47 4F 45 44 20 5fi 4F 

2040 s 22 00 00 00 An ftfl AP AA Rfl flft Aft AA AF) AA AA 

□p ad res 2001 en 2002 staat 00. Hier heeft gestann h«t ad«r«s van de 
miwmmim^ rwMH , Ad res 2003 en 2004 seven het reset noMftier. ftdres 20t5 
•##ft id» ItttttrtiKtie PRINT weer. En so verder. Als men het geheei VQ|«t in 
de flSCIl kode ziet men de vol send* 

OP 

na 



Hssuii KOde ziet men de voisende resei bes i nnen op ad res 2015. Im% fiBJt. 
adres 2001 en flDH op adres 2002- Qeef ftu een »arme starl; van basic en 
'LIST" is alies in ere hersteid. 



BASICODE NAAR BASCO 



i*« d« it»«&icode> sepubliceerd in Elektuur nos sebru i kersvr i ende i i J ker te 
'■tmmn het in onderstaande reset er aan toesevoesd (alieen OHIO-DOS sebrui- 
kers ! ) 

1. P0KE574, 0: PaKE575, 22E: DISK! "CO E000=n" : STOP Cn=tracknumwer van lees- 
en sc hr i j f rout i neiS'J* • 
Door nu in BASIC te zeggen RIJN"BASCD" Ok heb de routines tot aan reset 
650 de naam BASCO geseven), daarna i.6t.X«i^(X) in te typen, wordt AUto- 
Matisch de i n I eesrout i ne sestart voor basicode. 

yout van D i nt her 
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TEIEK flflfii C-Ei4 



In een 'MJ'dmj^ (no;f0) fe^b Ik verteld ovisr 1i«t aansluiten 

van een telex op de CBM 64. Waarom een telex? Een v,an de meest voor*.: 
komende print-tezigheden van een computerhobbyist is het inaken van 
een pwJgaeasMit-a.ii^tiig'f t© gefe^Mlken ale ai?ehlef en als wlddfel cm op 
een comfortabele wijze veranderingen te beramen. Om nog maar te 
zwij gen ov er het insturen van zo'n listing aan de redao'tie Van de 
. . 'B^n telex tnaalet een listing' en • Is voor veel ttfnder 
geM op de kop te tikken dan een matrix -printer '. 

Jezwaren van een telex zijn dat hoofd- fen kleine letters niet moge- 
1151e aijw lis%in|r Met ty^langrijlc), en' SaH; cte vele speciale" te- 

kens die bij de C'BM 64 in ruime mate kunnen voorkomen tussen de aan- 
halingstekens , 00k niet afgedrukt kunnen worden, Ik zei vorige keer 
al dart #afiftet! •mW-tmit^ m t# lessen was. Net op tijd vooir tnij ver- 
scheen een programma in ' COr-IMODORE COHPUTITTG T^'TERTTATTONAL' dat al 
die speciale tekens omzet in zoiets als [CDJ , wat door een telex ge- 
prin% "kan worden en door de ^bruiker als •Ctlfgd^ BOW* begrenen In 
evontueel in,"-etikt kan worden. Dat bespaarde mij de moeite van het 
zelf ontwikkelen en ik kon direct beginnen aan de telex-aanpassingen. 

l@i»l# aan lie% ■andeJj.f'iyKaade ^ogranma te'^leh Is, tiiaitfe ik nli'- voor ' 
weiniiB; greld (en beho<a&l,|.3i|, wat lawaai) prima leesbare listincs van 
die 'onmogelijke' CEfl 64-)3i?ogranima ' s . Let op; alle met CTRL inge- 
t#etBte f let feeds' -s^eisdei? speciale %etekenis woirden geprfnt als C<JfR'E§3, 
dun in voorkomende f^evallen zelf er even bi,ischri,iven welke letter 
dat dan is. Denk trouwens 00k aan die hele speciale tekens, genoemd 
a«» 'kmt-@im-^--»mtm^^' TmimmeT*^ Kefea^see ffuide, chapter ?, 
lltIC language vo^immM^.,. ^#*beeld: [CB6>ig mtm lifUM, 

Oni€a?«taan<le^ listing werd jgepffint op een fUjtMlNT j,9^, aangesloiea 
op een CBM 64, na omzetting door het programma. 
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? REM **•« T'T'^'JfCS TO 'COMMOTIORR 

y> PWM •»♦* COMPUTI'^fT I ^ITERNATIONAL' 

4 RKM »»»* MAGAZT1F FOR PBftfSttHS 

5 PKM »*»» THE LIST CO^IVERTER PART 

6 REM •»*» OF THIS PROGRAM AT THE 

7 ♦*»* RIGHT nm fos ms. 

R GOT03000 

g REM •»»»» MAIS ROUTISE 
10 Mf*l^»0.165t43t 133.251. 165 
?0 DATA44.n3,?5?. 160.0. 177t?5t 
30 DATA133.P53.200. 177. 251 , 133. ?54 
40 DATA201. 0.208. 1.06. 200.200 
50 DATAPOO. 177. 251. 201. 0.208. 13 
60 DATA165.253. 133.251. 165.254. 133 
70 DATA252. 16?»#»fS!e»t#*.fmt*l<M 
RO DATA34.20fl.l0.232.224.2.20R 
no T)ATA12. 162. 0.76.28.102.224 
1 00 DAT* 1 . 240i 3,76. m . J92« 201 



110 T)ATA?55,?0R.'^.76.?q. 1)?. 133 
120 T)ATA102.24.?01. 102. 144.4.216 
1 30 I>AT A56. 233.0#»i!'®t«§«; 
140 DATA201.33,144,3.76.?8. 10? 
150 BATA134. 100. 133. 101.132.02.16? 
W& t*TAl.?00f 177,251 . 107,iftV^W 
170 DATA4,?Tl?,76. 106. 102, 134. 10? 
180 DATA224. 1.240,2. 176. 10.202 
100 DATA165, 101,g§f *St.ff«,?,76 
200 PATA167, 103 , 138 , 1 33 , 03 , 1^, if 
210 DATA133.04. 162.8. 160. 0.6 
?»fO tATA03,4?, 107,04, 144 ,4,?2'0 
230 T>ATAO4.230.O3,?0?.?08,?4?.?16 
240 I)ATA24. 105. 48 . 133 . 04 . 24 . ? 16 
250 OAf i 0## 4«r* 1»3»^3* %m 
?60 DATAIOI .?01. 07, 176.3,76,?? 
270 DATA1O3.201. 123. 144.3.76.22 

me 'vmrnm^fw* m*m»4 tm^ itt 

2O0 T> AT A 16?, 7, 165,O3,?01 .48,?08 
300 DAT A8.?0?. 165. 04. 201. 48.208 
31 0 1)ATAt ,?0?,2?*l , 1 02, 240, 1 1 , 176 



LUODSJaftftOI^A^^Op'ftAMrtA 



?i?0 T)«TA6t:^?.0. 1'?4«7fi,??7, 1)2 

:^:^0 n.ATA'^?* I'M. 164.")?, i60, ii 

:^40 T>ATA14f).J?51. 165t'13.?01. 4^^.240 
r^fSO T)ATA7,?00.14?Sf?fil. 165tl02.201 
:^60 nATAI ,?40.P'. 165, ^4,200.145 
?I70 T)ATA?51.16O,71.200, 145t251.160 
:^R0 T^ATA62.200.145.251tlfi5. 101.260 
I^OO nATA145,251, 161.1.'^,?00. 145.251 
400 DATA166.100t76.2B.n2.13.'^.101 
410 T)ATA160,R0.13.T.1R.16'1.195.133 
420 I1ATAn,162.R0. 160.0. 177. 
430 T)ATA1'57. 101.240.1.200.200.200 
440 DATA202. 16.244.76,250. IQQ. 200 
450 'nATA177, IQ, 193.200. 177. 9R 
460 DATA133.99.165.193. 133.99, 160 
470 DATA0,177.9R. 133. 193.216.24 
490 T1ATA105.4, 170. 165.93.201.49 
490 DATA209. 9. 202. 165.94.201.49 
500 T1AT A209 . 1 . 202. 229 . 1 02. 240. 1 1 
510 PATA176. 6. 32.0. 194.76. 105 
520 T>ATA193.32. 169. 194. 164.92. 169 
530 DATA91. 145.251. 165.93.201.49 
540 D AT A24 0 . 3 . 200 . 1 45 . 251 . 165. 1 02 
550 DATA201. 1.240,5. 165,94,200 
560 DATA145. 251, 132, 92, 160, 0,234 
570 DATA234. 200. 177.99. 132. 1 14. 164 
590 DATA92.200. 145.251 . 132.92. 164 
590 BATA194. 196. 193.209.239. 164.92 
600 DATA169.93.200. 145.251. 166. 100 
610 DATA76.29, 192. 164.92. 166. 100 
620 T)ATA76, 29, 192,-1 

629 RFM MFMORf MOVE A»IT) RECLAIilH 

630 DATA134, 194. le??* 102,56,2;^«It4 
640 T)ATA133,197.?4.16S.?S1. 101.52 
r^sn DATA133. 95. 165, 252. 105.0. 133 
660 1)ATA96. 165.95. 101 , 197. 133,90 
670 T)ATA165,96. 105. 0. 133,91 , 165 
690 r)ATA45.56,229.90. 133.99, 169 
690 DATA165, 46, 229. 31. 170.232.152 
700 DATA240.31. 165.90.24. 101.99 
710 DAT A 133, 90. 144.3,230.91.24 
720 DATA165.95. 101.99. 133.95. 144 
730 DATA2.230.96.152.73,255,169 
740 DATA200. 199,91 , 199 ,96, 177,90 
750 DAT A145, 95, 200, 209, 249, 230, 91 
760 DATA230,96,202,209,242,56,1€^ 
770 DATA45.229.197. 133.45. 176.3 
790, DATA199,46.56, 160,0, 165,253 
790 !)ATA229. 197. 133,253, 145,251, 133 
900 DATA97. 165,254.233.0.200. 133 
910 DATA254, 133,99, 145,251, 136, 177 
920 DATA97, 133, 195,200, 177,87, 133 
930 DAT A 196. 240. 24. 136.56. 165,195 
^40 DATA229, 197, 170, 145,97, 165, 196 
nm DATA233, 0,200, 145.97, 133.98 
960 DATA139, 133.97,76. 131. 194.96 
870 DATA139.56,22;l, 102. 133, 187.24 
^^0 DATA165,92. l»f »lf6t*«ii0l 
890 MTA5»S4»l44*3»76,65»199il65 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1079 



900 DATA45. 101. 197. 170. 165.46. 105 
9t® tiflttW«56.208.7.229.55 
920 DATA144.3.76.99. 199.24. 165 
930 DATA45. 133.90. 101. 197. 133.99 
940 DATA165. 46. 133.91. 105.0. 133 
950 DATA99, 165,251. 101.92. 133.95 
960 DATA165,252, 105, 0,133,96,32 
mQ *t91»t6S»®4» lit* 0. 165. 45 
990 DATAIOI. 197. 133.45. 144.3,230 
990 DATA46,24, 165,253, 101, 197, 133 

i*f«tiit*f33,87. 145,251. 165.254 
DATA105. 0.200. 133, 254, 133,99 
DATA145,251, 136, 177,97, 133, 195 
DATA200, 177.87, 133, 186,240,24 
DATA136,24, 165, 195. 101 . 197. 170 
DATA145,97, 165, 196, 1 05, 0, 200 
DATA145»87, 133,88. 138.133.87 
T)ATA76, 19, 195.96.-1 
REM »»•♦» DATA ADDRESS TABLE 
imm B*f A««#6*t#t« 17.60. 197.t« 
1090 DATA63. 197. 19,67, 197.29.71 
DATA197,29,75, 197,30,79, 197 
DATA31. 92. 197.32.86. 197.96 
DATA90. 197. 123,94, 197, 124.99 
DATA197, 125, 102, 197. 126. 106. 197 
DATA127. 109. 197. 129, 112,197 
DATA116, 197, 134, 119. 197. 135 
DATA197, 136, 125. 197, 137. 129 
DATA138.131. 197. 139. 134. 197 
DATA137, 197, 144, 140, 197. 145 
DATA197,146,147, 197,147, 151 
DATA148,155.197,149,159, 197 
DATA163,197, 151, 169, 197, 152 
DATA197,153,177, 197, 154, 193 
DATA155.1«9f 197, 156. 193. 197 
DATA197. 197. 159.200. 197. 159 
DATA197. 160,209, 197. 161.214 
DATA162,219, 197, 163,222. 197 
DATA226, 197, 165,230. 197. 166 
DATA197. 167,239, 197. 169.242 
DATA169,246, 197, 170.250. 197 
DAT A254. 197. 172.2. 199, 173,6 
DATA199. 174. 10. 199, 175. 14. 199 



1100 
1110 
1 120 
1130 
1140 
1150 
1160 
1170 
1190 
1 190 
1200 
1210 
1220 

%ma 

1240 
1250 
1260 
1270 
1290 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 



133 
122 
197 
140 
144 
197 
150 
173 
197 
157 
204 
197 
164 
234 
197 
171 



DATA176,19.199.177.22.199.179 



DATA26. 199, 179.30, 199. 190.34 
DAT A199, 191,39, 199, 192.42, 199 
DATA183,46, 199, 194,50, 199, 195 
DATA54, 199, 196, 5>'?, 199, 197,62 
DATA199, 199,66, 199.199.70, 199 
DATA190.74.199,191.79, 199.1 
1390 DATA92, 199,2,99, 199.9.94 
1400 DATA199.9. 100. 199. 14. 106, 198 
141 0 DATA142, 112, 199 , 141 . 1 18, 198.-1 

1419 REM »»♦»» DATA TABLE 

1420 DATA3.97.72,94,2.67.69 
1430 1>ATA3,82,69,96,3,72.79 
1440 DATA77,3,92,69,69,2.67 
1450 DATA92,3,71,92,79,3,66 
1 460 BATA76.85. 3.83.80. 67» 3 
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mmm 



1490 

1510 
1520 
15:^0 
1540 
1550 
1560 
1570 
15S0 
tSQO 
1600 
1610 
16?0 
16r^0 
1640 
1650 
1660 
1670 
16Pt0 
1610 
1700 
1710 
17?0 
17:^0 
1740 
1750 

1760 

r^ooo 
:soio 
:^o?o 

^O'^O 
3035 
3040 
3050 
3060 
#000 
4005 
4010 
##20 
4 030 
5000 
5005 
5010 
50?0 
5030 
6000 
6005 
6010 
60?0 
6030 
7000 
7 005 
7010 
70?0 
7030 



D/»TA3t71,60t45f 3,71,62 
DATA45. 1,126.3,71,60,42 

lit 1 v^4W*m 

T>ATA2,70,51,2,70,53,2 



DATA70,55,2,70 
DAT A5?. 2, 70, 54 
T>ATA3,66,76,75 
T)ATA3,7'9,70,70 
DATAB3,3,68.69 
!)ATAR?,7q,5,76 
DATA6q,3,71,B2 
T)ATAR2,50,5,76 
DATA7R,5.76,32 
T)ATA3,71,q?,51 
DATAq2, 2,67,76 
T)ATA76,3»67,qO 



DATA6?.q3,q0.67,3,71,60 



T)ATA75,3.71,60 
T)ATA60,c54,3,71 
T)ATA71,60,71 ,3 
T1ATA3,71,60,77 
P»TA9?,3,71 ,6? 
T)ATA60.7'^,3,71 
T1ATA71,60.6n,3 
T>ATA3.71.60,<^3 
DATAqO.3,71,60 
TIATAfiO.^T,-^,?! 
nATA71 ,'^0,<^7,3 
DAT A3, 71, 60, 74 
»»»«» BASIC 



50,2,70 

2,70,56 

2,67,q5 

3,67,76 

70,3,66 

32,R?,61 

49,3,71 

66,76,R5 
3,80,^5 

7R,5,71 



73,3,71 

60,64,3 

71 ,60,43 

3,71,60 

12,3,71 

60,^1 ,3 

71,60,10 

3,71,60 

65,3,71 

'=;o.'^?.'^ 

71 ,60, 7? 
3,71 ,60 

LOADER 



DAT A76 , 3 . 7 1 , 60 f1 
DATA60,R5,3,71,60.71,3 . , 
DAT A71, 62, 64, 3, 71, 60, 70 
DATA3f 71. 60*67,3. 71, 60 
D AT Aqf», 3, 71, 60,^6,3,71 
DATA60,66,5.67,<?4,B2.76 
DAT A65. S« #7*^4 »#f «f6«W 
DATA5,67,n4,!^2,76,7?,5 
DATA67,q4,f^2,76,73,5,67 
D A T AB 4 . R 2 . 76 . TO . S 
D AT A7 1 , 62 , 79 , 5»^f | 
DATA62, 77,-1 

tUM • mow MTissASis nm mfa 

DATA16.«S,15,?01 f 27, 1/14 ,■^,7'^ 
DATA105, 101, 105,64, 141 ,24, f)! 

DATA01, 76,65, 113,5,67,9/1 
DATA92,76,74,32,79,73,32 
DATA93,q2.65.72.67,3?,Rg 
DAT A79, 65, 77, 32, 71, 71, 94 
DATA32, 13,32,79,73,32,79 
1170 DAT»R7,71,7R.75,32.n4,71 
ijflO DATA79,32,92,65,72.67,3? 

DATA13, 162,20, 191,24, 111,32 
D«TA21 0.255. 20?, 20R. 247, t«i»^ 
D»TA177,251, 133,57.200, 177,251 
DATA133.59.32.201. 191. 104.104 
D A T A76 . 25 . n 2 . 234 » m » t34 . 234 
DATA33tSS»T64.-l 



1770 

1790 
1710 
1R00 
1910 
1920 
1R30 
1940 
1950 
1960 
1970 
1990 

1910 
1100 

I'll© 

1120 
1130 
114.0 
1150 
1160 



I'llO 
2000 
2010 
2020 
2030 
2040 



50000s F»605f36; Q=5049B : H*508 1 1 
DATA - PLEASE WAIT 



EHD 



EJJD 



A=41 1 52: R=41 59 1 : C=41664 : D=41175s E' 
T=50139:.T=51045:K=0:OOSUB9200 
P'RT»IT"CCLSH2CDH2CR1[REV1 PROCESSIHa 
yORZ^ATOBiRFADYt IFY=-1THE!I3060 
K=K+y:P0KE2.Y:HEXT 
Rl AM s I FY=- 1 TH EH4D00 
IEK=59 1 05THE»I4000 

PHI »IT"C2CDHREV] DATA ERROR LI»JES 10 - 260 " 
K=0: FORZ=CTOD: READY: TFY*-1THB!I4030 
K=K+Y:P0KFZ.Y:»I1!;XT 
READY: IFY=-1TH1!;«15000 
TFK=41396THF»J5000 

PRI^T"C2CD][REV1 DATA ERROR n LI»JES 630 - 1070 
K=0: ?ORZ=ETOF: READY : I FY=- ITS F'»5030 
K=K+Y:P0KEZ.Y:1Fi(T 
READY:TEY=-1THEN6000 
TFK=35494THEM6000 

PRT«IT"[?CPHREV) DATA ERROR IN LT'JES IP© • 141 
K=0: F0RZ=aT0H : R F ADY : I E]r=- ITH EN6O30 
f(=fC+Y:POKEZ.Y:»IEXT 
READY;IEY=-1THE»I7000 
TFK=1741tTH EH7000 

PRT VT"C2CDHRFV1 DATA ERROR IH LIfJES 1420 - 1990 "SESD 

K^O: F0RZ=T TO.I : READY : I EY*- ITH Ef 7030 

K=i(+Y:POffEZ,Y:»IEXT 

READY: TFY=-1TKE»19000 

IEK=11236THEH9000 

PRI»IT"C?CDHREV1 DATA ERROR IH LIMES 1990 - 2040 "tEMD 



BHD 
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5 0 5 



KEIMNJEIR 



Ronn PHTiT"t:^rDH?rRHPFVi data i»iputted •• 
R010 WT vT"r?rTiic?ri'UPFvi sys4ti5? to USF " * 

qO-'O PPTnT"rr'rT1H?rpHRFV1 WAP«IT'I0: 0»ILr FOR LISTTMGi A 
nn?.«S pnT*JT" SAVIT YOU'' PPOO'^A"! BFFORF COHVEPTTIO TT«" 
f^Oy>0 PRI«IT"(?0RHHKV1 REFORMED PROGRAM CAN HOT RUN? " 

qn^'T py^ TELEX AT)APTATTO»I BY FER ii^EBER 

«040 PPI»IT"C?rT11[?CRl AT>|]PT BASIC FOR TFLK< ( Y/N I ?"; : POKEl^q , 0 

«ft«Sf« (?WdtfTtO«<>-Y"A«IBOf«*"f*T»TF'«ROftO 

nnfifi T F0«="Y*'T'^T!'Hqft7n 

fl06? pi»TVT"fCT.S1[r,nirOMPOTFR";:E'JD 

wftrrt ww"rf!T,«;KrT)i pt.fasf watt...": 

qn-n PF*< r?T<*nF PAST'"* FOR PS?'^?*ff MA LOOP TTY 

p. 1 on A-'im^nt B=40 1 P>1 : r'=4.-^7.'^5: D=4,'^74q 
07 m iP=4?7:^0:F=4?7:^?!fT=4:^i47:H=4:v^Ji1 

RIPI PRin: PRT1T"CCT)) WRTTT»n BASTT T »J RAM..." 
qi'^n fft#t=iATOBt POTFT , PEEK( T 1 ! IF^T 

qi4n Ff^WT=rTOT):PFADY! POfCEI .Y:1EXT , 
f^tfiOWRt=mF:REAT)Y! POTFT .YtlEiCT 
qi<=;n V0RT^TT0«:''FAD/t POKET .Y:«IFi(T 

PRT»JT"[''T)1 ATini^If; »JFW OOPE..." 
flt7n ?riRT*KTOr,:RFAWtPOKEI , Y: 1FKTtFORT=1T01000t'rFXTt 
0171 PPTMT'TPrT^I POK-FI . .'=^4 BFFORF LTSTT^IT TO YOUR TELE!f«" 
qi7? PT^IT" POfCEI.fiB TO .-JET A NORMAL SCREEH »GAI»I." 
Rl?."^ PRT-JT" WtnTH IS PRESET TO 60 Crf ARACTEHS." 
0 174 PRTVT" W'^TTrn ilTVFS YOU SPACE FOR »(OTES»" 

qno PRm- WAiiT TO rHA«ir,F t^at ( y/d?-;: poKEiiRtO 

oiq? TE0*="'^"T'^F^R1'"l'^ 

qiRTi PR T NT: PRINT" NEW LINE WIDTH = : POKFIO'^. 0 
mm T1?!JT0:P0f(FfS11l>R.0+1 

01^^ PRINT: PRINT" BROKEN LISTED LI!IES ARE PRECEDED BYC5SPCJTW0 SPACfS?" 
ni^? PRINT" REMEMBER THAT 'STOP/ RESTORE' ALSO WILL" 

ntm pnriT" swftet '*'k§i*?' nier W mmnt.*.* 

01R0 PRINT"CTD100MPUTFR"; :END 

q n 0 D AT A:^2 . 1 1? . 19r» t ?.'^4 , P34 . ?.?>A i 234 1 ?34 . ?M . P.M . 234 1 234 1 234 1 234 » 32 . 16 1 . 1Q9 

q 1 0 1 D A T A3? , 1 w , im » ?M t i34 

on? DATA3?. 123, ia'),36. 10||#»3, 32. 130, 100,16 

qi03 DATA160,13,32.POB.m»i6')tO»3?.20q»100,160.0«32t20q.l99t06 
qi05 BAf A160, 32,32, ?0q, 100, 160, 32,32. 20q» 100,06 

«WS iATil33t252. 160,61, 133t253. 133.251. 165,252.32.205, WO, 96. 133 
q M7 T) AT A??^? ♦ ??^4 , 234 , 234 . 234 . ?S4 ♦ 234 ♦ t9fl . 25 1 . 2(M . 1 Q . 32 . 1 23 . 100 . 32 . 13?) . 10<? » 1 
65,253 

qilR DATA133, 251.108, 251. lOR. 251. 108.251,32.150.100.165.252.32.12.225.41.25 

s.oe 

0 100 RFM E<PLANATTO»»S **** 

8200 PRINT"[rLSl" 

R205 PRTtf*t?eDK2CtlttffU^fei!»'f'P01»fEl) GRAPHICS IISTEH PROGRAMC tltijl* 

8210 PRINT"C2SPCHREVIWITH OPTION TO ADAPT BASIC FOR TELEK" 

8220 PRINT"CCD1[2SPC1THIS PROGRAM CONVERTS GRAPHICS CHARAC-"? 

nf^ff PRTNT"TERS IN PFTfT STATEME1TS TO MfllPOWlCS* E?STCl*t 

8240 PRTNT"WWIC1 SRi^ BETTER READABLE IN A LISTING. "; 

8250 PRINT"! 2SPC1M0ST MNEMONICS rfitt BE EASILY UNDER-t2SPC]"; 

8260 PRTIT^STOOB. SOMf OF Wf #AftjP OtlSs* 

8770 pPTfT" £CTlIi?H3SPClf:01TROI.+Li:TTER"!REM *• TYPE tCTJL?! tlTEBALLY 

*» 

8|W!0 ftW* t§*?H5SPClCOMMOI)ORE+LETfi8'»jR|* »« . f¥|^ tS*«1 ' fctTERALLY •* 
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f^p^o piJTn- rn>?i[5SPcism?T+Lf!Tff»*ftin *» tf^ ta.?i utmauy 

fistfi pttHT- cFii-cfBi Tunefiw in*i»*»«i typb tFii«twi tffi;»Attf 

»» 

t?3?0 PRT»IT"MULTIPLE COPISGS - EG (IPSPCl. IF OHLVCPSPC )-; : REM »» TIPR tlPSP 

CI TJTKRALLr » 
^.-^I^O PRHT"0»IE SPACE CHARACTER IS FOPT©* If iltt tr*? 
f^:^40 PRI!«T"PRI»ITED AS A SPACE." 

R3ftO PRT-JT-CPSPCIIF THE RECODIHG EXfifIl>& t«l Otl UHlf t 
fl:^60 PRIitT-tPSSI, THE«I A?J ERROR MESSAGE APPEARS: C3SPC1"5 
a370 PRI«T"*TOO MAHlf CHARS IH ????'. A^ 'OUT 0FC4SPC]"; 
f^mo PRIMT-MEMORY- WILL OCCUR IF THE REC0M!IM6SPCJ-$ 
fimO PRI»JT"E)(CEEDS THE BASIC MEMORY SPACE." 
R400 PRTfIT"[2SPClL0AT) AMD RUW THE LISTER, THEN L0ADC4SPC)"; 
^410 PRTMT-lfOUR BASIC PROGRAM AHD TYPE SyS4'115?.t3SPCl" 
B4?0 PRniT"[2SPCl PRESS 'SHIFT' TO RUS THS M;Sf5Pl**»-J 
»4»f f AT T653 , 1 : R ETUR S 
READY. 

Hoe te fcebruiken: 'RUN' dit pro^rarama en feef de vereiste antwoorden. 
'LOAD' het te listen progrstiuHia . 

'POKT^ 1,54' 

• 0PTCN1 28 , 2 , 3 , CHH« ( 1 5 1 ) +CHa$ ( H ) ; QIIDI 28 , «aateB« : LISf » 
Als het printen klaar Is: 
' PRINT#1 28 : CLOSHf g« 
'POKE 1,55' 



(Coramod©»e Computing International, published by Nick Hampshire 
Publications, lif-tif Cf*®at Partl^jii M%tm%.f. .iMx^mi m.) 



VSfl^ EN AANBOD. 



0ns clublid K.J.S. Odon Nil 
graaq in kontakt koaen aet 
andefe leden Melke in de oa- 
qevino van ziin Hoonolaats 
Honen en ook een JUNIOR be- 
zitten. Verder zoekt hii le- 
den die hea Hi Hen heloen o* 
ziin printer, een SEIKDSHfi 
6P-250X, 00 de juiste Niize 
aan te sluiten oo z'n JUNIOR 
en een orinterroutine hier- 
voor hebben. 
K.J.S. Odon. 
Theresiastraat 61. 
6102 CS Pey (Liaburo), 
Tel.: 04754 - 1153 
Of kontakten aet de rcdaktit. 



LflNDELIJKE BIJEENKOMST flUELO 
ZfllERDAG IS ^TDSER 1984. 



Noteert U alvast evtn? 
Oo bovencwnoeade datua mrdt 
in het oebouN van de stichtina 
Jeuod- en Wi ikMerk Beeklust - 
OssenkoDoelerhoek (hoc verzint 
•en het). Jan Tooroostraat 27. 
7606 JS fllMlo. de landeliike 
bijeenkoast oehouden. 
Hooeliik kan de routebeschri i- 
vino qeoubliceerd mnhm in de 
uitnodiaino, veraits de redak- 
tie iteze •ntvaBol. Jleea Uh ao- 
liNitWf mi. m m awiiitus- 
nuaaer. Ue aaan verschillende 
coaouters aan elkaar koooelen 
aet fl.Hankel en E.VisKMi]k. 



IMmn WEEKEND (» KOMST? 



fldri Hankel en Ewin Vis- 
schediik hebben het idee 
aelanceerd oa een coaouter 
week-end te oroaniseren. 
Zii zouden van de leden 
oraao Hi lien verneaen wat 
die ervan denken. De redak- 
tie Nil araaa ook xeten of 
er belanastellina voor be- 
staat. Dit aet het ooo oo 
eventueel te verzenden in- 
foraaties. Er is noa aeen 
uitocMerkt olan oo de re- 
daktie bekend. waarschi in- 
liik Nordt het later ooae- 
tteld. Schriif de redaktie 
of U ook voor zoieta w»lt. 



VRflAG EN MNBOD. 



Heeft 11 een bua ontdekt in 
een sTMraaaa of een scheaa? 
■MM. M redakt ie ! 

Wie heeft er ervarinoen aet 
lichtoen en softttare daar- 
v«or? 

Wie heeft er ervarino ooae- 
daan aet de verlenode bus- 
orint van Elektuur? 
Laat het de redaktie net en! 

Stuur Fl.l,= in retourenve- 
loo voor overdruk uit Coao, 
Desion over 16-bitB CHOS oro- 
^mn. fiSOe coaoatihle. 
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OSI SPEt II E> ISftSSEMBL-ER PftGE 01 



0010: » 

0020! * * * THIS PROGRfiM IS ft MODIFIED DISASSEMBLER. 

0O3O: « ORIGINALLY WRITTEN TO RUN ON THE fiPPLE- 

0040! » SYSTEM AND PUBLISHED IN "INTERFACE AGE" OF 

0050! * SEPTEMBER 1976. LATER ON IT'S PUBLISHED 

0060! « IN "DE 6502 KENNER" NR. 3 AND NR. 20. 

0070: # 

0O8O! « THIS PROGRAM IS MODIFIED FOR THE OSI SUPER- 

0090: * BOARD II BY E. J. A. SONNEVELD. AKELEILAAN 77, 

0100: « 3333 Gfl ZWIJNDRECHT, PHONE: 078 - 126286. 

Olio: » TWO PARTS OF IT (SUBR. 'DECHEX' AND ' GETLNE' ) 

0120: ♦ ARE BASED ON THE PROGRAM "QUICKSflVE" CMOVHEX' 

0130: « AND 'GETLIN') BY JAN & BAS EDIXHOVEM CP OSIoa 

0140: # (HCC:OSIaa "NET BESTE UIT 1 EN 2") 

0150: * 

0160: * THIS PROGRAM NEEDS THE RAM POSITIONS $80-$FB 

0170: « AND *230-$4FB, BUT ALL PARTS CAN BE RELOCATED 

0180: # TO OTHER LOCATIONS. IT'S POSSIBLE TO GET THIS 

0190: # PROGRAM IN QUICKSflVE FORMAT (FASTER THAN THE 

0200: * NORMAL 300 BAUD, NO NEED FOR SPECIAL HARDWARE, 

0210! # SEE HOC : OS I aa) BY SENDING A TAPE AND ft STAMP 

0220! » (FDR RETURN) TO ME. 

0230! # 

0240: * THE ADJUSTMENTS FOR THE OSI ARE THE SUBROUTINES! 

0250: * 'STHEAD' ($80), PRINTS A MESSAGE: ' DEXHEX' 

0250: « ($260), CONVERTS DECIMAL TO HEX; 'GETLNE' 

0270: * ($280), START- AND ENDADDRESS INPUT; ' PRBYTE' 

0280: # ($2C0), PRINTS THE BYTE THAT IS IN THE ACCU: 

0290: # AND THE ROUTINES ' STAfTT* (*^*«^« M ' I»<Ifl' 

0300: ♦ ($2ED). 

0310: * 

0320: * THE MAIN PROGRAM ($300-*4FB) IS THE SAME AS THE 

0330: « ONE PUBLISHED IN ' DE 6502 KENNER' MENTIONED 

0340: * ABOVE, ONLY THE MONITOR ROUTINES ARE FILLED IN. 

0350: # IMST IS »P«iVTr , *O«iR0U', 'CRLF' AND'MONIT'. 

0360 : * 

0370! # BECmi^ I fSflW*? ipas FftST VIDEO-OUTPUT, AND 

0380! ♦ I HAVEN'T GOT ft ^HTER, AFTER EVERY DISASS.LINE 

0390! « THE COMPUTER WftfH POR ANY KEY PRESSED (*309) , SO 

0400: # YOU CAN WRITE PARTS OF IT ON PAPER. 

0410: * 

0420! * STARTING THE PROGRAM: 

0430! * STARTADDRESS $230. (IN MONITOR .0230 G) YOU 

0440: # SEE A CLEAR SCREEN (DON'T FORGET TO ENTER 

0450: # YOUR OWN CLEAR-SCREEN-ROUTINE) AND A MESSAGE! 

0460: # DISASSEMBLER 'CRLF' START- AND ENDADDRESS. 

0470! # NOW YOU MUST ENTER THE 4 CHARACTERS OF THE 

0480: * STARTADDRESS, A SPACE, AND THE 4 CHARACTERS 

0490: ♦ OF THE ENDADDRESS. IT'S POSSIBLE TO EDIT THE 

0500: » ADDRESS WITH THE CURSOR , YOU CAN MOVE IT 

0510: * BY TYPING ')' OR ' (' . AFTER ENTERING THE 

0520: « RIGHT ADDRESSES TYPE CR AND PRESS ANY KEY 

0530: » TO CONTINUE THE DISASSEMBLY. 

0540: « IF A WRONG CHARACTER IS ENTERED THE PROGRAM 

0550! » JUMPS TO THE MONITOR. WHEN TYPED A STARTADDRESS 

0560: # HIGHER THAN THE ENDADDRESS A SECOND INPUT IS 

0570: « ASKED. 

0580: * AT THE END OF THE DISASSEMBLY THE PROGRAM ASKS 

0590: * FOR A NEW START- AND ENDADDRESS: STOP BY TYPING 

O&OO: * A NON-HEX-CHARACTER FOLLOWED BY CR OR CONTINUE 

0610: « BY ENTERING A NEW START- AND ENDADDRESS. 

0620! # N.B. : THE MANY NOP' S ARE USED TO AVOID MUCH 

0630! # TYPING AFTER A MISTYPE BEBOfi^ OP I HAVEN'T 

0640! « INSTALLED AN ASSEMBLER. 
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0 5 0 



KEMIviEIR 



DISOSI 



CIS I si=»B II DisfkssEiM&t^mm 



PflBE 02 



0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 

oaoo 

0810 

0820 

0830 

0840 

0850! 

0860 

0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1 120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

i2S0r 



0230 



DISOSI ORG $0230 : DISftSSEMBLER FOR OSI 



0230 20 
0233 20 
0236 flO 
0238 20 
023B ftO 
023D fl2 
023F 20 

0242 ES 

0243 88 

0244 20 

0247 CO 

0248 CO 

0249 Cfi 
024ft 88 
024B 88 
024C 10 
024E 20 
0251 20 
0254 4C 

0257 Eft 

0258 Eft 

0259 Eft 

0250 Eft 
025B Eft 
025C Efl 
025D 4C 



D5 PC 
6C A6 
00 FD 
2D BF 
93 FE 
00 FE 

BO 00 
EF 00 
FO 00 
Fl 00 
F2 00 
F5 00 
F6 00 
Ffl 00 
FB 00 

EO 00 
El 00 
E2 00 
E3 00 



86 D3 
A& D3 



D5 FC 
80 00 

00 

80 02 
08 

02 

60 02 



60 02 



Fl 

6C ft8 
6C ft8 
ED 02 



0260 B9 06 D3 
0263 20 95 FE 
0266 30 F5 
0268 95 EO 
026fl 88 
026B B9 ft6 D3 
026E 20 93 FE 



CLSR * 
CRLF * 
TOETS * 
DUTCH # 
CONVRT * 
MONIT # 

TABLE * 
FORMAT * 
LENGTH * 
* 
* 
« 



$FCD5 
$fl86C 
*FDO0 
$BF2D 
*FE93 
«FE00 



; CLEAR SCREEN (mv routine til iBrott) 

; ROUTINES 

■ BASIC 

: SUPERBOflRO 

; II 



LMNEM 
RMNEM 
COUNT 
YSAVE 
PCU 



*0OB0 
*0OEF 

FORMAT +01 
LENGTH +01 
LMNEM +01 
RMNEM 
COUNT 



PCLOW » ■ 
PCHIG * 
PCLLBT # 
PCHLST * 



$0OE0 
$0OEl 
$0OE2 
$0OE3 



VIDCUR 
VI DOHA 



»D3e& 
$D3A& 



00 FE HON I 



:MAINPROBRAM 

START JSR 
JSR 
LDYIM 
JSR 
LDYIM 
LDXIM 
Q JSR 
INX 
DEY 
JSR 
DEX 
DEX 
DEX 
DEY 
DEY 
BPL 
JSR 
JSR 
JMP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
JMP 



CLSR 

STHEAD 

$00 

6ETLNE 

*08 

$02 

DECHEX 



Q 

CRLF 
CRLF 
INCHIA 



l^CHEX LDAAY VIDCHA 



JSR 
BMI 



CONVRT 
MONI 



STAZX PCLOW 
DEY 

LDfiflY VIDCHA 
JSR CONVRT 



+03 
+01 



YSAVE +04 



+01 



:PLACE OF CURSOR IN VIDEO RAM 
; PLACE OF CHAR. IN VIDEO RAM 



INPUT BEGIN- AND EnDADDRESS DimSS. 
INIT IN BEHALF OF CHARS FROM 
BEGIN- AND ENDADDRESS 
DECIMAL => HEX CONVERSION 



OUTPUT 2 x 'CRLF' 



LOW NIBBLE FROM SCREEN 
^11 => HEX 0-F 

KEY -> MONITOR 



HISH NIBBLE FROM SCREEN 
ASCII ■> HEX 0-F 



11 
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DISOSI 



OS I SF>B II DISRSSEMBUER 



1290 


: 0271 


30 








£711 1 




1 300 


: 0273 


00 








051 0 




1310 


: 0274 


Ofl 












1 320 


: 0275 


Oft 








Q9I a 




1 330 


: 027& 


OA 








091 0 




1340 


: 0277 


15 


EO 






nRQ7X 
w nn it, A 


DPI nu 


1 "550 






FO 






9TQ7 Y 


Dpi nu 


1360 


■ 027B 


60 








RT9 




1370 




t-n 








NHD 






: 0'?7D 










Nino 




1390 
















1 AOO 


: 0?7F 


Ffl 




























1 A?0 




n _? 


X 




RFTI HP 


1 noTM 

L.Uri 1 VI 


% 1 /l 
V in 


lil'^O 

X *+iJ*-' 


■ O'-'fl"' 




ftp. 






9TQQV 
O 1 MM T 


V J. L/L«U n 




■ ^^^u%_; 










1 nY TM 




1 A^O 




^O 




Pn 
~ 1/ 


UCl 


T9R 


1 UC. 1 D 


1 ziAn 

X ^ov 




AA 








H riH 




1 A 7 A 




QQ 
M 3 


'"'0 






1 HQ T M 




X HQyJ 




AH 


Af 






D 1 H 


V 1 ULUK 


1 AQf) 


; 0290 


f A 
Do 








Dl Q 
r LH 




1 snn 


• yj^j X 




on 






PMD T M 




1 si n 




no 


Ol 






ni\/F 








P.O 








BTC 
rC 1 D 




1 '=;'^n 

X iJvJl-' 


0"?QA 


PQ 
u 7 


"^p 








\ 


X *JHV 




FO 


OF 






RFD 




1 ssn 

1 «JUv 




FO 


OQ 






PD Y T M 








FO 








DCb! 


uUUnI 






PQ 


TF 
uC 






PMD T M 


J \ 
/ 


J. 


09D0 


FO 


OT 








poccrij 
unsrw 






qq 


MD 


£/iJ> 




QTQQV 
D 1 MH T 


V1L/L»T1M 


X DW 




FA 
lIO 






UnDr n 


T M Y 




1 A 1 n 




PA 








T NIV 




X U^L' 




no 


OP. 






RMF 


Rnnw 

DUUIN 


1 f^'KCi 




FO 


oo 






PDY T M 




1 P/ifl 




FO 


OO 








uUUN 


1 l^St") 

1 OiJU 




PD 








nPY 




X DDV 


AO op 


AA 
DO 








Ut Y 




1 p li'i ' 
i ti / u • 


UzHr 


AQ 
H J 


1 /i 

X ^■ 




DUUPi 


i no T M 
LUH I PI 


* J. u 


X DOU 




qq 


A<^ 
OD 






a 1 HHT 


ijTnpi IP 

ViUUUn 




A ->n/, 


no 


ni 










1 f UL' ■ 


AO DC 


FQ 
CH 








MDD 




X / IK.' * 


09R7 


FQ 












X / ZU ■ 


AODD 


FQ 
CH 








Kino 








FQ 
CH 








Kino 




1 7/iri ' 


A ■"■DA 


FQ 
CH 








Kino 




1 7*=;ri ■ 

i fU\J ■ 


A ODD 


FQ 
CH 








hinD 




X f Dv ■ 


02BC 


FQ 
CH 








MHD 
WwK 




1 77n ■ 




FQ 
CH 








WUK 




X 1 o\j ■ 


02BE 














1790! 


02BF 


EA 








NOP 




laoo: 
















1810: 


02C0 


48 






PRBYT 


PHO 




1820! 


02C1 


4R 








LSRO 




1830: 


02C2 


4fl 








LSRO 




1840: 


02C3 


4fl 








LSRO 




1850: 


02C4 


40 








LSRO 




I860: 


02C5 


20 


DO 


02 




JSR 


OUTNIB 


1870: 


02C8 


68 








PLO 




laao: 


02C9 


29 


OF 






ONDIM 


»0F 


1890: 


02CB 


20 


DO 


02 




JSR 


DUTNIB 


1900: 




£0 








RTS 




1910: 


m 








NDP 




1320! 

















umm wef »> monitor 



SAVE LOU ONO HI6H NIBBLE 



PUT CURSOR. ON SCREEN . 



SET KEY FROM KEYBOftRD 
SAVE KEY 

DELETE OLD Qii^ ¥wm mfmn 



'CR'? 
MS. ^ ON 

CURSOR BACK f 

CURSOR ON LAST POSITION ? 

CURSOR FORWARD ? 

Imt n mmt m mmm 



CURSOR 1 POS. BOCK 

CURSOR ON FIRST POSITION ? 



NEW eURSOR 



m^S, CHARACTER 



OUTPUT HisH mmm 



OUTPUT LOW NIBBLE 
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£f B 5 O 



DISDSI 



OS I SF=>B II D ISfiSSEMBL-ER 



1 930 : 


02D0 


09 


30 




OUTNIB ORflIM 


$30 


1940: 


02D2 


eg 


30 




CMPIM 


$30 


1950: 


02D4 


90 


02 




BCC 


OUT 


I960: 


02D6 


69 


06 




ODCIM 


$06 


1970: 


02D8 


20 


2D 




OUT JSR 




1 980 : 


02DB 


60 






RTS 


1 990 : 


02DC 


Eft 






NOP 




2000 : 


02DD 


Eft 






NOP 




2010: 


02DE 


Eft 






NOP 




2020 : 
2030 : 


02DF 


Eft 






NOP 














PRBYTE 


2040 5 


02E0 


20 


22 


03 


JSR 


2050 : 


02E3 4C 6C m 




mLJF 


2060 : 














2070 : 














2080: 


02ED 








ORG 


*02ED 


2090 : 














2 1 00 : 


02ED 


D8 






INCHIfl OLD 




2110: 


02EE 


18 






CLC 




2120: 


02EF 


fl5 


E2 




LDOZ 


PCLLST 


2 1 30 : 


02F1 


69 


01 




ODCIM 


$01 


2140: 


02F3 


85 


E2 




STOZ 


PCLLST 


2150! 




90 


09 




BCC 


$0300 


2160! 




65 


E3 




ODCZ 


PCHLST 


2170! 




85 


E3 




STOZ 


PCHLST 


2180' 




90 


03 




BCC 


$0300 


2190' 


02FD 


4C 30 


02 


JMP 


STftRT 


2200 














2210 


0300 










fOPO 


2220 










NOP 




2230 


0300 


Eft 








2240 


0301 


fi5 


EO 




LDOZ 


PCLOW 


2250 


0303 


85 


FO 




STOZ 


PCL 


2260 


0305 


fl5 


El 




LDOZ 


PCHI6 


2270 


. 0307 


85 


FB 




STOZ 


PCH 


2280 


; 0309 


20 


00 


FD 


FURTHE JSR 


TOETS 


2290 


: 030C 


20 


32 


03 


JSR 


INSTDS 


2300 


! 030F 


20 


OF 


04 


JSR 


PCODJ 


2310 


: 0312 


85 


FO 




STO 


PCL 


2320 


: 0314 


84 


FB 




STY 


PCH 


2330 


! 0316 


C4 


E3 




CPYZ 


PCHLST 


2340 


: 0318 


DO 


EF 




BNE 


FURTHE 


2350 


: 031fl 


C5 


E2 




CMPZ 


PCLLST 


2350 


: 031C 


90 


EB 




BCC 


FURTHE 


2370 


: 031E 


4C 


33 


02 


JMP 


STftRT 


2380 


: 0321 


Eft 






NOP 




2390 












ONE IN 


2400 










: DISASSEMBLE 


2410 












YSflVE 


2420 


: 0322 


84 


F6 




PRBYTE STY 


2430 


: 0324 


20 


CO 


02 


JSR 


PRBYT 


2440 


: 0327 


ft4 


F6 




LDY 


YSflVE 


2450 


: 0329 


60 






RTS 




2460 


: 0320 


84 


F6 




CHOROU STY 


YSOVE 


2470 


: 032C 


20 


2D 


BF 


JSR 


DUTCH 


2480 


: 032F 


ft4 


F6 




LDY 


YSOVE 


2490 


: 0331 


60 






RTS 




2500 


: 0332 


20 


F3 


03 


INSTDS JSR 


PRPC 


2510 


: 0335 


ftl 


FO 




LDAIX 


PCL 


2520 


: 0337 


08 






TOY 




2530 


: 0338 


40 






LSRO 


I EVEN 


2540 


: 0339 


90 


OB 




BCC 


2550 


: 033B 


40 






LSRO 




2560 


: 033C 


BO 


17 




BCS 


ERR 



HIGH ODDRESS +01 
THE DISOSSEMBLES 



PCH => PCH +01 



PCH NOT 0? 



BEGIN POINTER TO 
PCL, PCH 

BECOUSE OF DISftSSEMBLiNG 

WOIT ON KEY. BEFORE DISflSS. 
m*T INSTRUCTION 



SUBR. TO PRINT THE BYTE 
THAT IS IN THE flCCUMULATOR 



SUBR. TO PRINT THE OSCII 
CHOR. THOT IS IN Tm 
OCCUMULOTOR 

PRINT PCL/PCH 
BET tPCOBE 

EVEN/O0& TEST 

TEST Bl 

XXXXXXll INSTRUCTION INVOLID 
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2^Ei 5 a s 



PftGE OS 



2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

26S0 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3^00: 



033E 

0340 

0342 

0344 

0346 

0347 

0348 

034B 

034D 

034E 

034F 

0350 

0351 

0353 

0355 

0357 

0359 

035ft 

035D 

035F 

0361 

0363 

0364 

0366 

0367 

0368 

036ft 

036C 

036E 

036F 

0371 

0372 

0373 

0375 

0376 

0378 

0379 

037ft 

037C 

037D 

037F 

0382 

0384 

0387 

0389 

038ft 

038C 

038E 

0390 

0392 

0393 

0394 

0397 

0399 

039C 

039E 

0300 

03fl2 

03fl4 

03fl6 

03ft7 

03fl8 

03ftft 



C9 
FO 
29 



22 
13 
07 



09 80 

4ft 

ftft 

BD IE 04 

BO 04 

4ft 

4ft 

4ft 

4ft 

29 OF 
DO 04 
ftO 80 
flg 00 
ftft 

BD 62 04 
85 EF 

29 03 
85 FO 
98 

29 8F 

Aft 

98 

flO 03 
EO 8A 
FO OB 
4ft 

90 oa 

4ft 
4fl 

09 20 
88 

DO Ffl 

C8 

88 

DO F2 
48 
Bl 



I EVEN 



Fft 



20 -ZZ U3 
02 01 
20 06 04 
C4 FO 
C8 

90 Fl 
fl2 03 
CO 04 
90 F2 
68 
ft8 

B9 7C 04 
85 Fl 
B9 BC 04 

F2 



RTMODE 
ERR 

6ETFMT 



8 

fig 00 

flO 05 
06 F2 
26 Fl 
2ft 
88 

DO F8 
69 3F 
20 m #3 



MNNDXft 
MNNOXB 

MNNOXC 

PROP 

PROPEL 



PRMNA 



CMPIM 

BED 

ftNDIM 

ORfilM 

LSRft 

TAX 

LDftflX 

BCS 

LSRft 

LSRft 

LSRft 

LSRft 

ftNDIM 

BNE 

LDYIM 

LDftIM 

TAX 

LDftflX 

STft 

ftNDIM 

STft 

TYft 

ftNDIM 

TftX 

TYft 

LDYIM 

CPXIM 

BEQ 

LSRft 

BCC 

LSRft 

LSRft 

ORftIM 

DEY 

BNE 

INY 

DEY 

BNE 

PHft 

LDfllY 

JSR 

LDXIM 

JSR 

CPY 

INY 

BCC 

LDXIM 

CPYIM 

BCC 

PLft 

TfiY 

LDAflY 

STft 

LDAflY 

STft 

LDftIM 

LDYIM 

flSL 

ROL 

RDLA 

DEY 

BNE 

9mm 



%22 
ERR 
$07 



MODE 
RTMiBi 



$0F 

GETFMT 

$80 

*00 

MODEB 

FORMfiT 

$03 

LENGTH 
$8F 



$03 
$8A 

MNNOXC 



; 10001001 INSTRUCTION INVALID 

;MflSK 3 BITS FOR ftDDR \im& 

:flDD INDEXING OFFSET 

;LSB INTO CARRY FOR 

: LEFT/RIGHT TEST BELOW 

: INDEX INTO ADDRESSING MODE fiBJi 

;IF CARRY SET USE LSD FBS 

; PR I NT FORMAT INDEX 

■IF CARRY CLEfiR USE liSD, 

:,ASK 4-BIT INDEX 

;0 FOR INVALID OPCODES 

?SiT PRINT FORMftf tWEt TO 0 

•INDEX INTO PRINT FORMAT TABLE 
;SflVE FOR ADDR. FIELD FORMAT 
:MASK 2-BIT LENGTH. 0=1-BYTE 
;1=2 BYTE, 2=3 BYTE 
: OPCODE 

:MASK IT FOR IXXXlOlO TEST 
:SAVE IT 

; OPCODE AGAIN TO A 



mmm iform index into MfCMWic imm. 



$20 

MNNDXB 

I^DXA 

PCL 

PRBYTE 
$01 

LEMSTH 

PROP 

$03 

$04 

PROPBL 



:1XXX1010 => OOlOlXXX 



:XXXYYY01 »> 
:XXXYYY10 => 



001 11 XXX 
OOllOXXX 



mxm ■> ooiooxxx 
ttwm «> oooxxxxx 



:SAVE MNEMONIC TABLE imm 



•PRINT INSTR (1 TO 3 BYT^ 
:IN A 12-CHflRACTE8 FliUD 

•CHAR COUNT FOR PRINTING fiffCMONIC 



xm&Sm^. MNEMONIC INDei 



MNEML 

LMNEM 

MNEMR 

RMNEM 

$00 

$05 

RMNEM 

LMNEM 



PRMNB 
*3F 



; FETCH 3-CHAR MNEMONIC 
;P^PM SN 2 BYTES 



: SHIFT ^SBITS OF CHAR IN flCCU 
•CLEflf^^RRY 



jftDD 'X' OFFSET 
— ^ g^jj OP MNEMONIC 
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p ^ Fm S O 




OSI SI=>E« II D ISnSSEMBtL-ER PABE 06 



3210: 


03flF 


CO 








DEX 






3220: 


03B0 


DO 


EC 






BNE 


PRMNfi ; 




3230 : 


03B2 


20 


04 


04 




JSR 


PRBLNK ; 


OUTPUT 1 BLONK 


3240: 


03B5 


02 


06 






LDXIM 


*06 : 


COUNT FOR 6 PRINT-FORMOT BITS 


3250: 


03B7 


EO 


03 




PRADRA 


CPXIM 


$03 : 




3260: 


03B3 


DO 


12 






BNE 


PRODRC ; 


IF X=3 PRINT ODD VOLUE 


3270 : 


03BB 


04 


FO 






LDY 


LENGTH ; 




3280 : 


03BD 


FO 


OE 






BEQ 


PRODRC : 


NO PRINT IF LENGTH = 0 


3290 : 


03BF 


05 


EF 




PRADRl 


LDO 


FDRMOT ; 




3300: 


03C1 


C9 


ES 






CMPIM 


*E8 : 


HONDLE REL ODDRESSING MODE 


3310: 


03C3 


Bl 


FO 






LDOIY 


PCL : 


SPECIAL (PRINT TORGET ADDRESS) 


3320: 


03C5 


BO 


IC 






BCS 


RELODR ; 


(NOT DISPLOCEMENT) 


3330 : 


03C7 


20 


22 


03 




JSR 


PRB¥TE ; 


OUTPUT 1- OR 2-BYTE ODDRESS 


3340 : 


03Cfl 


88 








DEY 




MOST SIGNIFICONT BYTE FIRST 


3350 : 


03CB 


DO 


F2 






BNE 


PRODRB ■ 




3360 : 


03CD 


06 


EF 




PRODRC 


OSL 


FORMOT ; 


TEST NEXT PRINT FORMOT BIT 


5370: 


03CF 


90 


OE 






BCC 


PRODRD ; 


IF 0. DON'T PRINT 


3380: 


03D1 


BD 


6F 


04 




LDflOX 


CHORO - 


-01 : CORRESPONDING CHOROCTER 


3390 ! 


03D4 


20 


20 


03 




JSR 


CHOROU : 


OUTPUT 1 OR 2 CHOROCTERS 


3400 : 


03D7 


BD 


75 


04 




LDOOX 


CHORB - 


-01 -(IF CHOR FROM CHORB IS 0) 


3410: 


03Dfl 


FO 


03 






BEQ 


PRODRD ; 


DONn OUTPUT IT 


3420: 


03DC 


20 


20 


03 




JSR 


CHORDU ; 




3430 


03DF 


CO 






PRADRB 


DEX 






3440 


03E0 


DO 


D5 






BNE 


PRODRO 




3450 


03E2 


60 








RTS 




RETURN IF 6 FORMOT BITS 


3460 


03E3 


20 


11 


04 


RELODR 


JSR 


PCODJB 


PCL, PCH + DISPL + 1 TO fi,Y 


3470 


03E& 


00 








TftX 






3480 


03E7 


E8 








I NX 






3490 


03E8 


DO 


01 






BNE 


PRNTYX 


; +1 TO X,Y 


3500 


03Efi 


C8 








INY 






3510 


03EB 


98 






PRNTYX 


TYO 




; PR I NT TORGET ADDRESS OF BRONCH 


3520 


03EC 


20 


22 


03 


PRNTOX 


JSR 


PRBYTE 


3530 


03EF 


80 






PRNTX 


TXfl 




:OND RETURN 


3540 


03F0 


4C 


22 


03 




JMP 


PRBYTE 




3550 


! 03F5 


09 


8D 




PRPC 


LDflIM 


$3D 




3560 


03F5 


20 


6C 


06 




JSR 


CRLF 


1 OUTPUT CARRIAGE RETURN 


3570 


. 03Fa 


05 


FB 






LDO 


PCH 




5580 


: 03Fft 


06 


FO 






LDX 


PCL 


! OUTPUT. PCH AND PCL 


3590 


: 03FC 


20 


EC 


03 




JSR 


PRNTflX 


3600 


: 03FF 


09 


20 






LDOIM 


$20 




3610 


: 0401 


20 


20 


03 




JSR 


CHORDU 


; 


3620 


: 0404 


02 


01 




PRBLNK 


LDXIM 


$01 


■BLANK COUNT 


3630 


: 0406 


09 


20 




PRBLB 


LDOIM 






3640 


: 0408 


20 


20 


03 


PRBLC 


JSR 


CHOROU 


■OUTPUT 0 BLONK 


3650 


: 040B 


CO 








DEX 




•LOOP UNTIL COUNT IS ZERO 


3660 


: 040C 


DO 


F8 






BNE 


PRBLB 


3670 


: 040E 


60 








RTS 




• 0=1 BYTE. 1=2 BYTE, 2=3 BYTE 


3680 


: 040F 


05 


FO 




PCODJ 


LDO 


LENGTH 


3690 


: 0411 


38 






PCODJB 


SEC 






3700 


: 0412 


04 


FB 




PCODJC 


LDY 


PCH 


;TEST DISPLOCEMENT SIdN FlJR ML* 


3710 


: 0414 


00 








TftX 




3720 


: 0415 


10 


01 






BPL 


PCODJD 


; ADDRESSING MODE 


3730 


: 0417 


88 








DEY 




! EXTEND NEG BY DECREMENTINS PCH 


3740 


: 0418 


65 


FO 




PCODJD 


ODC 


PCL 


iPCL+LENBTH (OR DISPLACE«©<T) +1 


3750 


: 041fi 


90 


01 






BCC 


RTSft 


3760 


: 041C 


C8 








INY 






3770 


: 041D 


60 






RTSO 


RTS 


*40 




3780 


: 041E 


40 






MODE 


s 




3790 


: 041F 


02 








s 


$02 




3800 


: 0420 


45 










S4S 




3810 


: 0421 


03 








s 






3820 


: 0422 


DO 










«00 




3830 


: 0423 


08 










«0S 




3840 


: 0424 


40 








as 


$40 





15 
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5 a a 



cmt mpm ix ux&f^mmmMmi^mm 



mm 07 



3850 


: 0425 09 






3860 


: 0426 30 


'SB- 


$30 


5870 


: 0427 22 


.98 




3880 


: 0428 45 


m. 


*45 


3890 


: 0429 33 


a 




3900 


: 042R DO 




*D0 


3910 


: 042B 08 


as 


wo 


3920 


: 042C 40 




$40 


3930 


: 042D 09 




409 


3940 


: 042E 40 




$40 


3950 


: 042F 02 




$02 


3960 


! 0430 45 





$45 


3970 


! 0431 33 





$33 


3980 


: 0432 DO 







3990 


: 0433 OS 




4r)A 


4000 


: 0434 40 






4010 


: 0435 09 






4020 


: 0436 40 




4iD 


4030 


; 0437 02 






4040 


: 043A A5 






4050 


: 0439 B3 


_ 




4060 


: 043fl DO 


mm. 




4070 


: 043B 08 


mm. 


40A 


4080 


: 043C 40 




$40 


4090 


: 043D 09 




$09 


4ioo 


: 043E 00 




$00 


4110 


: 043F 22 




422 


4120 


: 0440 44 





444 


4130 


: 0441 33 




433 


4140 


: 0442 DO 


— . 


4D0 


4150 


: 0443 8C 




$sr 


4160 


: 0444 44 




$44 


4170 


! 0445 00 




$00 


4180 


: 0446 11 




$11 


4190 


■ 0447 22 




$22 


4200 


. 0446 44 


= 


$44 


4210 


0449 33 




433 


4220 


044fl DO 




$D0 


4230 


044B 8C 


_ 


$sr 


4240 


044C 44 


mm. 


$44 


4250 


044D 9fl 


_ 


$9Q 

■f* 


4260 


044E 10 


mm 


410 


4270 


044F 22 


_ 


422 


4280 


0450 44 






4290 ■ 


0451 33 




$33 


4300 ! 


0452 DO 




$D0 


4310 ! 


0453 08 


_ 


4oa 


4320 ! 


0454 40 


— 




4330 ! 


0455 09 





$09 


4340 : 


0456 1 0 





$10 


4350: 


0457 22 




$22 


4360! 


0458 44 




$44 


4370: 


0459 33 




$33 


4380: 


045fl DO 




$D0 


4390 : 


045B 08 




$08 


4400 : 


045C 40 




$40 


4410: 


045D 09 




$09 


4420 : 


045E 62 




$62 


4430 : 


045F 13 




$13 


4440 : 


0460 78 




$78 


4450: 


0461 fl9 




$fl9 


4460: 


0462 00 


MODES = 


$00 


4470: 


0463 21 




$21 


4480: 


0464 ai 







i IlXiltiO Ih@TRUCtIOMS 

; Z=0, LEFT NIBBLE 
; Z=l, RIBHT NIBBLE 



; YYXXXZOl INSTRUCTIONS 



: ERROR 

; IMMEDIATE 

; ZERO P&SE 
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pfm 



4490 


: 0465 


82 


m 




4500 


: 0466 


00 


-s 


mQ 


4510 


: 0467 


00 


m 




4520 


: 0468 


59 




«5i 


4530 


: 0469 


4D 






4540 


: 046fl 


91 


m 


mt 

■*m 


4550 


: 046B 


92 




4560 


: 046C 


86 


ss 


1^ 


4570 


: 046D 


40 


'as 




4580 


: 046E 


85 


m 


«8S 


4590 


: 046F 


9D 




1 


4600 


! 0470 


2C 




4610 


: 0471 


29 




') 


4620 


: 0472 


2C 


as 


> 


4630 


: 0473 


23 




'# 


4640 


: 0474 


28 


s 


' ( 


4650 


: 0475 


24 


m 


•$ 


4660 


: 0476 


59 


CHARB " 


'Y 


4670 


: 0477 


00 


m 


»00 
'X 


4660 


: 0478 


58 


s 


4690 


: 0479 


24 


s 


'* 


4700 


: 047fi 


24 


s 


'f 


4710 


■ 047B 


00 


ss 


♦00 


4720 


: 047C 


IC 


MNEML = 


«1C 


4730 


■ 047D 


80 


s 


fiA 


4740 


. 047E 


IC 


s 


«1C 


4750 


. 047F 


23 




f23 


4760 


0480 


5D 


SB 


tSD 


4770 


0481 


6B 


S 


MB 


4780 


0482 


IB 


SS 


flB 


4790 


0483 


01 


SS 




4800 


0484 


90 


s 


f9D 


4810 


0485 


SO 


S'^ 


»8A 


4820 


0486 


ID 


s 


«tD 


4830 


0487 


23 


ss 


*23 


4840 


0488 


9D 


ss 


«9D 


4850 


0489 


8B 


« 


fSB 


4860 


048fl 


ID 


a 


«iD 


4870 


048B 


01 




«Ai 


4880 


048C 


00 


St 


*00 


4890 


0480 


29 




*29 


4900 


048E 


19 


ss 


«19 


4910 


048F 


OE 


m 


fAE 


4920 


0490 


59 


a 


«S9 


4930 


0491 


06 


s 


»A8 


4940 


0492 


19 


a 


«i9 


4950 


0493 


23 


a 


*2Z 


4960 


0494 


24 


a 


$24 


4970 


0495 


53 


a 


$53 


4980 


0496 


IB 


a 


flB 


4990 


0497 


23 


a 


$23 


5000 ! 


0498 


24 


a 


$24 


5010: 


0499 


53 


a 


$53 


5020 ! 


049fl 


19 


a 


$19 


5030: 


049B 


01 


SS' 


$A1 


5040 ! 


049C 


00 


a 


$00 


5050: 


049D 


10 


a 


$tA 


5060 : 


049E 


5B 


s 


$5B 


5070 : 


049F 


5B 


a 


$SB 


5080 ! 


04fl0 


05 


a 


$AS 


5090 : 


04fll 


69 


a 




5100: 


0402 


24 




$24 


5110: 


0403 


24 




$24 


5120t 04A4 


m 


a 


$AE 



ABSOLUTE 

IMPLIED 

OCCUMULOTOR 

INDEXED INDIRECT 

INDIRECT INDEXED 

ZEROPOGE INDEXED BY RES. X 

OBSOLUTE INDEXED BY R£B. X 

ABSOLUTE INDEXES BY REB.Y 

OBSOLUTE 

ZEROPOGE INDEXED BY R^. Y 
RELOCOTOBLE 



I XlX«te©0 INSTRUCTIONi 



• XXXYYIOO IhffiTRUCTIOI^B 



: IXXXlOlO INSTRUCTICW© 



LUODSJaMOI^A^^Op'ftAMrtA 




KENlNJEIR 



5130: 


04fl5 flE 




*0E 


5140: 


0406 08 






51S0i 


04R7 HD 




* f\T\ 

»hD 


5160: 








5170: 


0403 00 


mm 


»0t) 


5180: 


04HH 7C 




»7C 


5190 ! 


04RB 00 




»00 


5200: 


04flC 15 




»15 


5210: 


04hD yc 






5220 


04flE 6D 




jfr f n 

$6D 


5^30 ! 


Oaflr SL 


s 


»9C 


5240! 


04B0 05 


■s 


»HD 


5250- 


04B1 69 


8S 


ACQ 


5260: 


04B2 29 


S 




5270 


04B3 53 


8B 




5280 


04B4 84 


m 


9(54 


5290 


04B5 13 




*15 


5300 


04B6 34 


ss 


ATA 

*oa 


5310 


04B7 11 


' at 


$11 


5320 


04B8 05 


SB 


*Ha 


5330 


04B9 69 






5340 


04Bfi 23 






5350. 


: 04BB 00 




* Art 


5360 


! 04BC DS 






5370: 04BD 62 


a; 




5380: OABE 5A 


n 


A c r\ 


5390: 04BF 48 


as 


»4o 


5400: 04C0 26 


as 


* -"^c 
*2d 


5410: 04C1 62 


.SB' 




5420: 04C2 94 




»y4 


5430: 04C3 68 






5440: 04C4 54 


SB 


$54 


5450: 04C5 44 


3S 


A A A 

»44 


54e0! 04C6 C8 


.32. 


»C6 


5470 


! 04C7 54 


^ 


$54 


5480 


: 04C6 68 




$68 


5490 


: 04C9 44 






5500 


: 04Cft E8 


as 




5510 


! 04CB 94 


as 


$94 


5520 


! 04CC 00 


as 


$00 


5530 


: 04CD B4 


X 


$B4 


5540 


i 04CE 06 


as 


$08 


55K>: 04CF 84 


as 


$a4 


5S6G: 04D0 74 




* "7 A 

$74 


5570 


: 0401 B4 


m 


ADA 

$o4 


5580 


: 04D2 28 


Sft 


$2o 


5590 


: 04D3 6E 


as 


$oE 


5600 


: 04D4 74 


as 


ATA 
$ /4 


5&10 


: 04D5 F4 


s 


$r4 


5&20 


! 04B6 CC 


SB 


$LL 


5630 


: 04D7 40 


'SBt 




5640 


! 04D8 72 




$72 


5650 


: 04D9 F2 


m 


$F2 


5660 


i 040A ft4 


v$ 


$04 


5670: 04DB 8ft 


m. 


$80 


5680 


: 04DC 00 


se 


$00 


5690 


: 04DD ftft 


at 


$00 


5700 


! 04DE ft2 


9B 


$02 


5710 


: 04DF ft2 




$02 


5720 


: 04E0 74 




$74 


5730 


! 04E1 74 


s 


$74 


5740 


: 04E2 74 


s 


♦74 


§7509 a4E2 72 


as 


$72 


srmi mm m 


as 





I %mmt& tmtmmttm 



I KXXYYYOl INSTRUCTIONS 



S INSTRUCTICH^ 



I jXX1tfdi# l»(^TM®T10«i 
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E 5 □ 



OSI SI=»B II DISftSSEMBL-ER 



PAGE 



5790 s 
5800 i 

seiot 

5820 s 
5830: 
5840: 

58S0: 

5870: 

5880: 

580): 

5900: 

5910 s 

5920: 

59301 

59401 

59501 

5960 

5970 

59801 

5990 

6000 

6010 s 

6020: 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6A001 



04E5 58 
04E6 B2 
04E7 32 
04EB B2 
04E9 00 
04EA 22 
04EB 00 
04EC Ifl 
04ED lA 
04EE 26 
04EF 26 
04F0 72 
04F1 72 
04F2 88 
OAFS C8 
04F4 C4 
04F5 Cfl 
04F8 26 
04F7 48 
04F8 44 
04Fg 44 
04Ffl A2 
04FB C8 



0080 

0080 
0082 
0085 
0087 
0089 
008C 
008D 
008F 
0091 
0093 
0095 
0098 
0099 
009B 
009D 
OOflO 
OOfll 
00fl3 
0006 
0007 
00A8 
0009 
OOflO 
OOfiB 
OOflC 
OOflD 
OOflE 
OOfiF 
OOBO 
OOBl 
00B2 
00B3 
00B4 
00B5 
00B6 
00B7 
0OB8 
00B9 



09 00 

8D 00 02 
02 2D 
B5 BO 
20 2D BF 
CO 

10 F8 
00 02 
09 2E 
02 04 

20 2D BF 
Cfl 

DO Ffl 
09 20 
20 2D BF 
88 

DO EE 

8D BO D3 

60 

Efl 

EO 

EO 

EO 

EO 

EO 

Efl 

Efl 

Efl 

Ofl 

Ofl 

Ofl 

OD 

73 

73 

65 

72 

64 

64 



« *58 

* *B2 
- $32 

*B2 

" $00 

* $22 

• $00 
« $lfl 
» $lfl 
a $26 
» $26 

■ $72 
« $72 

$88 

» $C8 

« $C4 

= $Cfl 

= $26 

» $48 

» $44 

m $44 

» $02 

■ 

mm 9mm 

m 

STICAD LDOIM $00 

STfl $0200 

LDXIM $20 

TXT LDAflX TABLE 

JSR OUTOi 
DEX 

BPL TXT 

LDYIM $02 

PNTfl LDAIM $2E 

LDXIM $04 

PNT JSR OmOi 

DEX 

BNE PNT 

LDOIM $20 

JSR DUTCH 
DEY 

BNE PNTR 

STA $D3B0 

RTS 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

■ $0A 

• $0A 
m $0A 

• $0D 
m 's 

* 's 

St ' i« 

« 'd 



XXXYYYIO INSTRUCTIONS 



: XXXYYYOl INSTRUCTIONS 



CURSOR HOME 

STORE HEADER 

"DISASSEMBLER" 

"BEBIN- AND EhtDADDHESS" 



DO TWICE 
ASCII FOR . 
4 X 

m IT IS 



NOW A SPflCE 



C. V' » It 
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PA6E 



54 10 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

5490 

6500 

5510 

5520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6&00 

6610 

6620 

6630 

6640 

6650 

6560 

6670 

6680 

6690 

6700 

6710 

5720 

6730 

6740 

6750 

6760 



OOBO 61 
OOBB 64 
OOBC 6E 
OOBD 65 
OOBE 20 
OOBF 64 
OOCO 6E 
OOCl 61 
00C2 20 
00C3 2D 
00C4 6E 
0OC5 69 
0OC6 67 
00C7 65 
0OC8 42 
00C9 Oft 
OOCfi Ofl 
OOCB Ofl 
OOCC OD 
OOCD 52 
OOCE 45 
OOCF 4C 
OODO 42 
OODl 4D 
00D2 45 
00D3 53 
00D4 53 
00D5 41 
00D6 53 
00D7 49 
OODB 44 
00D9 20 
OODfl 20 
OODB 20 
OODC 20 



'a 

'd 

'n 

'e 

$20 

'd 

'n 

'a 

♦20 

'n 
'i 

'a 

'e 

'B 

$0A 

$Ofl 

$Ofl 

*0D 

'R 

'E 

'L 

'B 

'M 

'E 

'S 

'S 

'ft 

'S 

'I 

'D 

$20 

$20 

*20 

*20 



Bita- 



In het DODulair wetenschaoDe- 
li]k tiidschrift KIJK. de e- 
ditie van aoril 1984. heeft 
Steven Bolt in de rubriek 
Beta een serie artikelen aeo- 
Dend over de BETfl-comouter. 
een nieuwe soruit binnen de 
f ami lie van 6502 zelfbouw- 
codiDuters. Het inleidend ae- 
deelte verschimt in het mei- 
tiu««er, het tweede deel in 
iLini is een bouwbeschri ivino 
van het comoutert ie, het der- 
de deel zal aaan over een mo- 
geli ike toeoaBsina van de 
controller, een "slim" ther- 
ffiostaat voor de cent rale ver- 
warmina, terwiil in deel 4 
tenslotte wordt uitoelead hoe 
de BETfl-comouter zelf bi i de 
ontwikkelina van hardware- en 
soft wareorot otvoes van nieuwe 
toBoassinaen kan heloen. Ook 
wordt de bouw van een moduul 
beschreven die automat isch 
een 2716 of 2K RAM emuleert. 
De bouw van een kleine con- 
troller en "terminal" (toet- 
senbord en disolav) zal wor- 
den beschreven. Doordat de 
BETfl-comouter de middelen aan 
boord heeft om zelf EPROM's 
van het tyoe 2716 te orooram- 
meren, kan de controller ook 
los voor serieuze toeoassina- 
en worcien aebruikt. 





Daarvan aeeft BETA in het 
derde artikel een voorbeeld: 
de al eerder aenoemde klok- 
thermostaat voor de centrals 
verwarmina met aoart instel- 
bare daa- en nachttemoera- 
tuur. Hier bestuurt de con- 
troller dus een disolav en 
een toetsenbord. soeelt hi i 
voor klok en leest hi i infor 
matie van een simoele eiec- 
tronische thermometer. Boven 
dien schakelt hi i net als de 
oewone t hermo«tiiid!:: g« Olfe-l«« 
stailatie. 

De bouw van het oeheel bliift 
binnen het bereik van een be- 
ainnend soldeerboutart lest. 
dank zii comolete onderdelen- 
liisten en bestelbare orints. 
Ook is de BETfl-monitor te be- 
stellen. De bouwkosten van de 
comouter bedraaen circa 350 
Qulden. Omdat toeaana aileen 
mooeliik is in de machinetaal 
van de microoocesso r zelf is 
beoeleidende literatuur nodia 
(bi ivoorbeeld: "Proorammeren 
van de 6502" door Rodnav Zaks 
ISBN 3-88745-101-5. aoed ver- 
kriiabaar bi i de orote boeK- 
handels. 

Inf ormat ies/besteladres! Pi- 
tronics, Graaf Florislaan 32. 
Voaelenzana. 

(Brons Steven Bolt. KIJK> 
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Tokenized Microsoft Basic Keywords and addresses W. L. van Pelt 

flmloi^ous to the publication fur f^offiffiodorsH|4 iKr Mwillif¥. 
0E &WM Jt&f^EU, Jkmmmixr 1983, e>a@iw 5-fi. 



COMMANDS 

Kt^RDS CORRESPONDING TO 2086 

ADDRESSES CORRESPONDING TO 2000 

THE ADDRESSES OF ROUTINES FOR COMMANDS ARE THE ADDRESSES 

mmm i, Mmm the routines are invoked throuih rts. 



KEYUORi 



mm mm-i 



END 


80 


mE9 




92 


3618 


FOR 


81 


2607 


LOAD 


93 


27flB 


NEXT 


•est 


2BC5 


SAVE 


94 


273B, 


DATA 


m 


2844 


#RIF¥ 






INPUTi 






DEF 


95 


31B1 


INPUT 


84 


2A8C 


POKE 


96 


360F 


DIM 


85 




PRINT# 






READ 


a& 


2AB8 


PRINT 


97 


2980 


LET 


87 


28F1 


CONT 


98 


2710 


SOTO 


88 


27F1 


LIST 


m 


mn^ 


RUN 


89 


27C9 


CLR 


9A 


253B 


IF 


8A 


2874 


CMD 






RESTORE 


8B 


2eCA 


SYS 






BOSUB 


BC 


27D4 


OPEN 






RETURN 


8D 


28iE 


CLOSE 






REM 


8e 


2887 


BET 


9fi 


2A70 


STOP 


8F 


26E7 


NEW 


9C 


2S20 


ON 


90 


2897 








NULL 


91 


27^ 









MISCELLANEOUS KEYWORDS 

KEYWORDS CORRESPONDING TO 20F6 



KEYWORD 



TOKEN 



TAB( 

TO 

FN 

SPC( 

THEN 

NOT 

STEP 



9E 

9r 

AO 
Al 
A2 
A3 
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_ KEtMME 

KIM-1 and Junior KB-9 Basic 

Tokenizetf MleroBoft Basic keywords and addrttsses 



I 

i DYflDIC OPERATORS 

I 

I KEYWORDS OORReSPONDIN© TO 210D 

I 

PRIORITIES AND ADDRESSES CORRESPONDING TO 2068 



I 
I 

f ^ THE ADDRESSES OF ROUTINES FOR DYADIC OPERATORS ARE THE 

( ' ADDRESS MINUS 1, BECAUSE THE ROUTINES ARE INVOKED 

J THROUGH A RTS INSTRUCTION. 

I 



TOKEN ADDR-l PRTY 



+ 


M 


3655 


7f 


iiditien 




A5 


363E 


79 


subtract ion 


« 


A& 


3870 


IB 


multiolication 


/ 


07 


3989 


7B 


division 




A8 


3DCB 


7F 


exDonentation 


AND 


A9 


2E06 


SO 


logical AND 


OR 


AA 


2E03 


m 


liiaical OR 


monadic "-" 


AB 


3E04 


1T> 


neoation 


monadic NOT 


AC 


2D&4 


5A 


logical NOT 






2E33 


64 


comoarison 



I FUNCTIONS 
I 

I FUNCTICINS r^RRESPONDINS to 21Ift 

I 

I ADDRESSES CORRESPONDING TO 203A 



KE*MORD TOKEN ADDR 



seN 


AE 


3AB1 


INT 


AF 


3B44 


ABS 


BO 


3AD0 


USR 


Bl 


304B 


FRE 


B2 


3181 


POS 


B3 


31A2 


SQR 


B4 


3DC2 


RND 


B5 


3EE3 


LOG 


B6 


3830 


EXP 


B7 


3E3i 


COS 


B8 


SFIF 


SIN 


B9 


3F26 



TAN 


6A 


3F6F 


ATN 


BB 


3FD3 


PEEK 


SC 


3605 


LEN 


BD 


3573 


SIR* 


BE 


3266 


VAL 


BF 


35A4 


ASC 


CO 


3582 


CHR« 


CI 


34E3 


LEFT* 


C2 


34F7 


RI6HT* 


C3 


3523 


MIOf 


C4 


352E 



Not»! 1) Bit 7 in the last charaeter of each keyword is set to determine 

the end of a keyword 



LUODSJaftftOI^A^lOp'ftAMrtA 



KENMER 



F-ORTH EDITOR QEBRU I KERSHONDLE I D XIMQ 
(SAfflenaesteld uxt Fia-FORTH Installation Manual) 

Poor* Wout van Dint her 

Molenri inselaan 27 
5262 TN VuQht 

Er vanuit aaande dat het "loaden" van tie editor door de deoruikers aeen 
oroblMm is. wil ik oroberen uit te leaaen. hoe de editor deoruiKt kan 

rt " screen H *" reaelnummer 

Een screen wil o.a. zedoen een stuk inwendio aeheuden (Duffer) waann 
ooqeslaaen 1024 characters, dat in z'n ceheel weooeschreven of oode- 

-f- u of naar taoe of diskette of zxchtbaap mmmMm. oo 

••n beeldBcnsnn ®f orinter. -wMf m.taimmmi oo 

Qm de editor «• slir!|i^i t voe aewoon EDITOR in. Daarna! 

" i-IST laat de oeselecteerde screen zien. waarna hii 

«f ni cna klaar staat cm bewerkt te worden 

OTS n CLtflR wist de oeselecteerde screen helemaai blank 

waarna hii klaar staat oiyi bewerkt te werden" 
, ^ klaar voor nieuwe invoer 

oit kan aebeuren met: 
X P "tekst" 

of. indien U onderstaande NEW definitie heefts 

^ NEW waarna oeselecteerde screen tot aan reaelnuirt- 

mer x oeorint wordt en verder inoevoerd kan 
worden zonder dat P en zonder dat iedere keer 

. reoelnummer moetvot hoeft te worden. 

X UNDER doet hetzelfde. aileen verschuift deze alle 

reoeinummers na x een oiaats omlaao. tmAttmr 
reoel 15 komt te vervallen (insert). 

Nti kunh»B m, oaan wiizioen («*i%*»tt. 4rKt|e» fiedioJ* 

reoel buffer, kan voor aiverse doeleinden oe- 

bruikt worden 

•»•*# Reoel editor commando's ***** 

*f H Houdt reoel x in PAD (meer in aebruik door 

het svsteem dan door oebruiker) 

^ yf/Sin'^^'^l ^'^f^^*?L!;®°?i ^ ""^^"^ behoudt hem 

in POD. Reael x+l */« 15 schuiven mm< mlamm 
naar boven 

M T Print (Tvoe) reoel x en bewaar hem in PAD 

« w Zet (Reolace) de inhoud van PAD in reoel x 

* Zet (Insert) de inhoud van PAD in reoel x 

maar schuif eerst reoel x en voloende een 
oiaats naar beneden (reoel 15 is dan verl©-* 
ren! ) 

I Wist (Erase) reoel x met soaties 

** S Schuift reaei X en voloende een oiaats naar 

beneden. R«a«l x wordt aewist. reael 15 ver- 

loren! 

#»#«# Cursor Positie Commando's ***** 



Verolaats de cursor naar het beoin van de 
screen 

y' " Verolaatst (Move) de cursor v olaatsen verder. 

De Dlaats van de cursor is |f» tiwi door e#» * 
in de tekst 

»*#*« Strino Editino Commando's ***** 

F "tekst" Zoek (Find) vanaf de huidioe cursoroosi- 

tie de strino "tekst". Indien oevonden. wordt 
de reoel uitoeorint met de cursor achter de 
"tekirt". Indien niet aeonden. volot ? (meestal) 
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en wordt de cursor weer oo TOP aezet 
B In oebruik na F. Zet ds cufsoi* veer de d«voti~ 

den "tekst" 

H Vervola het zoeken (Next) njMif IMIM strirKi 

"tekst" (na een F commando) 
X "tekst" Zoek en verwiider "tekst" 

C "tekst" Zet strina "tekst" oo de olaats van de cursor 

TILL "tekst" Verwiider od de cursorreoei alles de 

cursor tot en met "tekst" 

Een C zonder "tekst" erachter olaatst oo de cursoroositie een null in 
de reael. Dit stoot de cotrioilina van een screen. 
Din dit weer aoed te makens tvoe TOP x (CR) . 

6ii ieder strina commando wordt automatisch de reoel met daarin de cut- 
sor uitaeorint. 

*♦«#* Screen editina commando's ♦♦#*» 

nl n2 COPY Cooieert screen nl naar n2 

L Laat het aeselecteerde screen zien (List) 

De Dlaats van de cursor wordt in een extra 

reael onder het screen aetoond. 
UPDATE Plaatst de aewiiziade screen in een buffer. 

waarna: 

FLUSH Zorat dat het weer teruaaeschreven wordt naar 

disc (of voor niet-disc-aeDrui ^ers achter in 
RAM. waar de cassette-routine 'm kan vinden) 

AIb na comoilatie (loaden) een fout ootreedt. kan men dit weten door 
in te tvoen! 

WHERE Waar de fout. in welke screen en in welke re- 

ael. zielt Hfize ^iTidt 

SCR # 1 

0 ( EDITOR EXTENSIONS: NEW UNDER ) 

1 EDITOR DEFINITIONS 

2 : ENTER? ( STflRT-LIN£# CURRENT-LINE* - F ) OVER = : 

3 : ENTER ( - ) QUERY 1 TEXT : 

4 : NULL? ( - F ) TIB e C© 0= : 

5 s .iS ( - ) 8 EMIT : 
B 

7 : NEW ( STflRT-LINE# ) FORTH 16 0 DO CR I 3 . R SPACE 

a I ENTER? IF ENTER NULL? IF .BS I SCR fi .LINE ELSE 

9 I EDITOR R FORTH 1+ THEN ELM I t .Um 

10 THEN LOOP DROP : 

11 : UNDER ( START-LINE# - ) FORTH 1+ 16 0 DO CR I 3 . R SPACE 

12 I ENTER? IF ENTER NULL? IF . BS I SCR 6 .LINE ELSE 

13 I EDITOR R FORTH 1+ THEN ELSE' I SC^ » :.U»E 

14 THEN LOOP DROP : ^ ' 

CO«flL»KSN NIEUWS •- ■' C0«flL-80 EM COMMODORE 54 EuroCUBE sinole board coao. 



Brief aan de redaktie van 
Frans P. A. Bakx 
Huissteden 1112 

Onder ount 5 van de handlei- 
dino onder functies staat: 
NOTIaexo). Dit is nlet aoed. 
NOT is oeen functie. taar 'n 
Aonadische loaische ooerator. 
Oitdat het oeen functie is. 
Doet de aexo ook nict Imm 
haakies staan. 

Ik heb een aantal keren oe- 
nerkt dat de orocessor na 
een LOAD cotaando in het oe- 
oeuoenaebied >1800-$19FF oe- 
schfeven heeft. De I/O toet 
ik daarna oonieuH initiali- 

MWR. 



Na het veranderen van de vol- 
oende bvtes is het itoaeliik 
in COnflL*KGN te werken aet 
variabelen in kleine letters. 
»3062 5 $5B Nordt *7B 
$3085 : MS wordt $85 
Dit heeft een aantal voorde- 
len. Men ko«t niet in kon- 
flikt met de oereserveerde 
Hoorden (SETflL kan niet van- 
wege BET. aetal kan wel), Bo- 
vendien is in een listing een 
variabele snel te onderschei- 
den van een statetent. Men 
•oet er echter wel rekenina 
nee houden dat de interoreter 
intern alleen de eerste 2 ka- 
rakaters aebruikt (aetal is 
dus hetzelfde variabele als 



Coaaodore Nederland is be- 
reid oebleken Coaal-80 ver- 
sie 0.12 in hun oroduktoro- 
oraaaa oo te neaen, Een oe- 
deoen handbook is in voor- 
bereidino. Afhankellik van 
de belanostellino in Neder- 
land voor 0.12 zal de drux 
Horden verzorod door Coaao- 
dore of door de COHffi.-BOoa. 
Over de kosten is oo dit 
aoaent noo niets te zeaoen. 
Een COMAL-leerboek is in 
het Nederlands bescnikbaari 
"COMflL-80. een orooraaaeer- 
taal' door B. Christensen. 
de oeesteliike vader van 
COMAL-60. De vertalina is 
van Pcet Potticoort (Ptet 
vMi iir Poirt). EdukibMk. 



The EuroCUBE is a sinale 
board coaouter desioned on a 
Euro-card. It takes the ad- 
vantages of Bvte wide aeao- 
ries. the new 65C02 CMOS ai- 
croorocessor. a oarallel di- 
oital oort (VIA) and a se- 
rial Dort RS432/2 (UART). 
The card Hill Hork on its 
own. froa a 5 volt oower suo- 
dIv. An Doer.svst.EPRDM is 
included to orovide the soft- 
ware environaent for ATOM or 
BBC coaouter lanauaoes. 
Info! Control Universal Ltd. 
Unit 2 Andersons Court. New- 
haa Road. Caabridae C63 9EZ. 
Veraeet niet de naaa van de 
club en het redaktieadres te 
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* TOyeSS OF \mmi . EEN recurs IEF PROGRftMHR . * 

». p. tiH. UTRECHT . « 

m * 

Dit programma behandelt een K I ass i eK probleem > de TOWERS van HANOI . 
H#t is vroeser uit«eseven ais k i nderspen etj e * l«t*r l« iwt; ¥ET voorfe®»iHi 
geworden van recurs lef prograwmer^n . 
Het probleem is ais voigt : 

We hebben drie pa l en . Op de tinker paa I z i tten N Cvier of ffieerlCof «l.rsd!#r) 
schiJven » met ver sch i i I ende diameter en telkens een Kleinere 
m mwfi mr&tmrm » M« is dm d*t ««h.i4''»/«tt in*? #« r©c.»it«r 

tsaan aebracht moT-$«n » «cht©r tmdmr am votaend® voorwaarden > 

- nooit mag een grotere schiJf op een kleinere geplaatst worden. 

- het aanta I ver p I aats i ngen meet zo Klein mogeliJk gehouden 
wo f den <: biJ S echijven mintmaai 2G4 stamper) > 

Ook het prosrawma cm de ver p I aats i ngen te krijaen moet 20 klein moselijk 
gehouden worden . 

Het idee van de oplossing is ais volgt . We moeten de bovenste N-1 schiJven 
op de vrije paa I zetten zodat de onderste naar de rechter paal kan . De vriJe 

Umvt' ^&mmi ^e widiiwtvt*' ai« \inm»r £\4fi -t d»'t ^Mf ##iM#ns . 
ftis we N-1 schiJven op de vriJe paa I hebben is het probleem voor de N-d© 
schiJf opgelost en wordt N 1 Kleiner en moeten we weer N-1 schiJven ver- 
#l««t«B»n f etc tot N»l • 

Ik heb het programma slechts summier van commentaar voorzien . Voor de FORTH- 
K£I#£RS is dit ook nauweiiJks noodzaKet iiK t immers de semdtaKte defintSl^W 
spreken voor zich . 

Mensen die FORTH n i et of nauweliJks kennen maar toch ge i nteresseerd ziJn 
Ktiflwen mtiJd tetefonisch contact met mU opnemen . 

Waarsch i J n I i J k draait dit programma op eike FORTH versie die er is zodat 
ied«f'##n dse^FOIITH 't¥ec#'t d« tfoericinv van 1m% provramma zet'f ^'0k tfr"til''r!ill»'#ren.; 
Bovendien kunnen die het grafische gedeelte erbiJ kriJgen . het programma 
waarbiJ in hi ah- reso I ut i e d© verpiaatsing van de schiJven getoond 
^«*@i|"dt C 'fi «' • #'i »W'T I >. 

In BASIC liJKt dit OOK te Kunnen omdat Je met GOTO TERUG kan spr i ngen . 
lD»e wa«T#Mi: iH' PIII^H' tpf <@#'iF'iMiiiiia d# STIM^ bvufa'ard worden Kunnert 

dan in een matrix geplaatst worden . Het bleek echter dat BfiSIC na ©en 
GOTO TERUG n i et hierachter terugkeert . Dit werkt© dus n i et . 

In PftiCfltt Is »«e* «ric«**»i«i mm ¥riJ si<np©i ©p %m tmmm. 

Peter ten have 
Batav i ast raat GiS 
3531 XM Utrecht 
030-^934424 
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MET 100 (HEX) BYim sT«of< , tmmL f©T m mMuviM 

4- rek^ntijd : 1 sec , 

aarttai sta»i»«« biJ 22 schiJven : 2 tot de macht 22 



- 1 



mm 



VftRIfiBLE <BUILDS 2 ALLOT DOES) 



+ DE GEBRUIKTE WRIftBLE 
+• DEFINITIE . 



*• Variabeien zijn nu n i &t voigens het TO-concePt gemaakt 

* fisa-ar «»«oon een adres waar men getal i en kan we9z.='tteri f C 



v^PiRIPiBLE BRON 
v'ARIftBLE VRIJE 

! PftftLMR 

WP 1 



IF 

IF 
IF 



LINKS 

MIDDEN 

RECHTS 



THEN 
THEN 
THEN S 



f MOVEADISK 
CR 

• *' Bchf j f van " 
BRON CS PftflLNR 
. " " naar " 

DOEL m pmtm s 

''ARIABLE CF AMOVES 

pffiVES 

N CS 1 = 
IF 

moveadisk 

h ci dqel c! vrije c! brqn ci 

Else 

VRIJE Ca DOEL C8 VRIJE Cf DOEL 0! 
N Ce? 1- N C! 

m VRIJE C3 DOEL CS N CS 
CFAMOVES a EXECUTE 
N C! DOEL CI VRIJE C! BRQN C. 
MOVEADISK 

BRQN ca VRIJE CS SRiK C! VRIJE C! 
N ca 1- N Ci 

Bi?ON ca VRIJE ca DOEL ca N ca 

CFAMOVES B EXECUTE 
THEN ; 



AANTAL SCHIJVEN 

VIA DE VRIJE 
+ NAAR DE DOELPAAL 



+ CASE sTfiTEHiw? vfjut mmjmmim 



4- TEKST vm» mmtmimm 



* CODE FIELP mVE 



*' ALS N 1 IS DAN 



SCHIJF VERPLAftlMi*; 
4 WAARDEN VAN lfi^ |#t,^ 
ANDERS ; 
¥mM m DOEL %€«»ISiELEN 
N 1 KLEINER 

4 GETALLEN OP DE STACK 

■i- 4 WAARDEN VAN DE STACK HWtil 
SCHIJF VERPLAATSEN 

mm m mtm vEW6iisse_e« 

N 1 KLEINER 

4 GETALLEN OP DE STACK 
BEGIN OPNIEmi 
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TOWERS 



I " » 
. " as 



TOWERS OF mmi ♦ RteURSlE^ 



CR 
CR 
CR 
CR 
Ci 
CR 

CR ." Gee-f het aantal schiJven 
QUERY INTERPRET N C! 
CR CR 

' MOVES CFft CFPlMOVES ' 

1 BRON C! 2 VRIJE C! 3 DOEL C! 

BRON ca VRIJE m DOEL ca N ca 

MOVES S 



+ INITIftLtSEREN 



a" 

SB" 



• « 



OECIHflL 



+■ END OF INFO 



+• LEES N 

■i- STftRT flDRES MOVE 
^ 1=LINKS, 2=MIDDEN, 3=RECHTS 
+• 4 GETftLLEN OP STACK 
STflRT MOVES 



r 




BEGINSITJflTIE 8 SCHIJVEN 



11 WIT 




X 



0^ 
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KEMKJER 



mo 

0020 
0030 
0040 
0050 
0060 
0070 
0080 
CX)90 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
OIBO 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 



J8C1 affiBiH fli mm 

Vlft RET TOETSENBORD 

itilii i tiiiini i itiwii i itiiittiM 

fiUTEUR: F.J.M. SMEEHUIJlif 
LIPPEDflL 19 

2904 CL CflPELLE flW IMM. 
TEL. 010-512507 

f€T 0P6EVEN VAN DE i^GELBREEDTE IN BfiSIC VINDT NORMftftL 
PLflflTS TIJDENS «T "KOUD" OPSTPRTEN VAN BASIC. 
DIT KTEKENT DAT INDIEN ER EEN BASIC PRQGRWIMA IS IM3E- 
TtETST OF IH6ELEZBI EN ER AH^IEVELIJK EEN FOUTIEVE 
REGELBREEDTE IS 6EK0ZEN DIT ALLEEN VIA EEN "KOUDE" START 
UEER KAN UORDEN AANGEPAST l€T flLifigOi MEi ffiUHtMICN 
m ^£T BESTWWK PR(BRfl»W. 

HET NU VOLGENDE PROGRAMMfl GEEFT DE BOGELUKHEIB TUSS0I- 
TIJDS K REGELBREEDTE TE HIJZIGEN flLS VOLGT: 

tWIDTH (REGELBREEDTE) (ZIE BESCHRIJVING m HET TOEVKKN 
VAN NIEUUE BASIC KOWIANDO'S). 

HIERBIJ yORDT DE REGELBREEDTE DECIMAAL IN6EV0ERD HET EEN 
N^MdM MRU 99i 



0330 


98C1 


GETCH 


♦ 






0340 


98C1 


^£X 


* 






0350 


gaci 


PARAW 


♦ 


$0200 




0360 


98C1 


DECIW ♦ 


i0202 




0370 


98C1 


UARM 


« 


$C27E 




0380 


98C1 


ERROR 


* 


*C5F8 




0390 












0400 


98C1 AD 00 02 




LDA 


PARfW 


HAAL DE ASCII WAARDE VW 


0410 


98C4 20 F4 9a 




JSR 


m 


DE TIENTALLEN OP, KONTROLEER 


0420 


98C7 OA 




ASLfl 




OP NIHERIEKE WAARDE EN 


0430 


98C8 OA 




ASLA 




SCmiF TOTDAT DE 


0440 


98C9 OA 




ASLA 




OECIMALE UAARDE 


0450 


geCfl OA 




ASLA 






0450 


98CB 8D 02 02 




STA 


DECII« 


0470 


gaCE AD 01 02 




LDA 


PARAM +01 


0480 


9801 20 F4 9fl 




JSR 


NUM 


HM. Dt ASCII mm VAN IS. 


0490 


98D4 29 (f 




moiN 


$0F 


EENHEDEN OP, KONTROLER OP 


0500 


9806 18 




CLC 




IO€RIEKE UAARDE EN W»K 


0510 


98D7 6D 02 02 




ADC 


DECII* 


HET DECINAAL 


0520 


98Dfl De 


CONVER CLD 




TEL DIT OP BIJ 


0530 


98DB AA 




TAX 




DE TIENTALLBI EN 


0540 


98DC 29 OF 




mm 


iOF 


ZET DE GEVONDEN 


0550 


98DE 85 lA 




STA 




DECIhWLE 


0560 


98E0 8A 




TXA 




mm 


0570 


98E1 29 FO 




wiDin 


$F0 


m IN 


0580 


98E3 4A 




LSRA 




EEN HEXA- 


0590 


98E4 SD 02 OS 




STA 


DECIHA 


DECIMALE 


0600 


98E7 4A 




LSRA 




UffiRDE 


0610 


98E8 4A 




LSRA 




EN PLAATS 


0620 


98E9 18 




CLC 




DE UITKOMST 


0630 


98EA 6D 02 02 




ADC 


DECI* 


IN DE BASIC 


0640 


98ED 65 lA 




ADC 


HEX 


REGELBREEDTE 


0650 


98F 85 lA 




STA 


fCX 


mm 


0660 


98F1 4C 7E C2 




JMP 


UARM 




0670 


98F4 C9 30 


NL'M 


CMPin 


$30 


TESTEN OP 


0680 


98F5 30 05 




BNI 


ERR 


ty€RiEKE mm 


0690 


98F8 C9 3A 




CMPIM 


$3A 




0700 


98FA 10 01 




BPL 


ERR 




0710 


98FC 60 




RTS 






0720 


98FD 4C F8 C5 


ERR 


JHP 


ERROR 





10= 
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3 U N I # # 0 # M M AND CHARACTERS 

kft Coen Kiel pool 
Val de Perier, 
F-83310 Cogolin, France 
t.CW §*.*3.82 

Many a Ounior enthousiast will recognize my problem. 
As 3ijrrl©i?« tfsfetins k^vm not entirely been designed at the 
same time, Its system ®f ©©ittmand characters can be very 
confusing. 

To return to PM, you neeitf a R-command when in Disas- 
sembler, a B-command from Eprutl and a V when yom i*ls'h t© 
leave PM-Editor. S signifies Search or Save, R can mean 
©Ither Run, n|!fe1;tirn or Relocatef. 

The minus button stands for a lower address in P« bii* 
in PM-Editor you have to push Z for a backspace.' Moreover, 
m&st mf tiTiese characters again differ fr#« Mlcro-ADE com- 
mands. Perhaps Superman can cope titfc this multitude but 
I get confused. 

»elow Is a first attempt to edme to more logical and 
user-friendly commands which are also partially compati- 
ble with Micro-ADE. Options are limited however as PM- 
Editor does not accept the hexadecimal ftumhers A trough 
F as commands, so you emm% use 0 for ©elete among otk#r 
things. 

By th« way, if fm «t*it t© iinBl^eiit thest eonmartte 
in your Eproms, do not forffft too .ulsa efeange the headirtas 
"Val id Commands": ■ 

N.B. Only new commands are listed, all other commands re- 
main unchanged. Between brackets the commands to be 



CR Enter address ( SP in PM ) 
SP Increase address (+ in PM ) 

Decrease address (Z in PME) 
3 Gump to Program Counter (P in PM ) 
Microprocessor Register (L in PM) 
H Hexdump (M in PM ) 
W Where (S in PME) 

Q Quit to PM (V in PME, R in Disassembler, B in Eprutl) 

F Full, back to warm Cend-start (W in PME) 

E Empty, FF-check (F in Eprutl) 

i Renumber, relocate (R in Eprutl) 

1 Boundaries, parameters (P in Eprutl) 



U 
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PAGE o: 



0010: • »»*## FILE 01 «##»» 

0020 : ; 

0030: : IQlfiSlC* vottt KIM - 1 Basic KB~3 

0040: : 

0050 : : 

0060: ; AUTHOR S WC*i.DRI;\SH 

0070: ; KLltVE^INK 619 

OOSO : : fl!*!ST£RDftr. 

0090 : ; 

0100: : iv|£T lOBASIC IS H£T rOaS^YK Ov FTlES, fiftNStJMfiflH'^ 

Olio: , : VIR .^ICRQ-PDE, IN TE L£2E;N I.\ BASIC. 

0120: : NADftT D£ SOURCE MET riCRO-flDE HHNbE.^HaK" IS. 

0130! : WflfiRDOOR V£EL BETERE EDITTING I*!US£_YK IS Dh,M 

0140: : IN BASIC, MQET DEZE SOURCE-.- 1 l£ (' S) !*!£T B£- 

0150: : HULP VAN HET PftSCflL-DuTP JT CC"^.^ft,\DC CP Tfi-'E G£- 

0160: : 2ET WORDEN (VOOR D£ DIV£RS£ PATCHES OP MICRj- 

0170: ; PiDE IW PflSCflL-OL'TPUT. ZIE VOORSAfiNDE SaiTISS 

0130: : or INFORMEER BIJ D£ R£DAr\TI£) . 

0190: : D£ OANGEWflAKTE PASCPu--CJTPuT FIl-ES K_N\£M m'J 

0200: : DIT PROGRAMl^fl AAN BASIC AA.MG£BuD£\ WLRDEN. 

0210: ; 

0220: ; WERKWYZE : 

0230: ; 1. lAADT BASIC. 

0240: ; 2. LAADT DIT PROGRAMKA. 

0250! .' ; 3. START DIT P.ROBWPft. ' 

0250! : 

0270: ; HET PROGRA!»!MA 2Al EnIBE P-flK^S£M : V DE BASIC 

0280: : COMPILER PATCHEM (VERANDEREN) Or^ NfiAR D£ fi.-TE^- 

0290: ; NATIEVE ' JSR GETCH' T£ GAAN E\ DAfli\fl D£ 0P£- 

0300: ; NINGS-DI AlOCG !*IET BASIC VDEREN ( MEi^lCRY-SIZE = 

0310: : 39936 (=$9C00). TE»HilIT» * 64, • WaNT-SJM-COS- 

0320; J TAN = Y) 

0330: « VERVOLGENS 2AL ri£T PRCGRAi^llviA D£ POSC!^L:'-?iLeS 

0340: : I,Ml£Z£\' EM AAN BASIC AANBIEDEN. 

0350: : WORDT ER E£.Nj EnD--0~-FIl£ RECORD T£3£ni5£KD'^£v. 

0360: : DAN ZAl h£T PRDGRA.'vii^A VRAGEN C~ ER ;\uG r££^ 

0370: : J^ILES IN TE lEZEN ZYN (## MuRE FI^ES (Y/'V; #f) 

0330: ; INDIEN ' Y' GEANTWGORD WORD" Zhu. D''' NIEl'wE -''AS- 

0330: ; CAl-FORMAT FI:.£S GEVRAAGD wORDE.M. I\DI£\ ' 

0400! : GEAmTWOORD WORDT ZAl D£ COnTROwE AAN BASIC ~£- 

0410: ; RUGGEGEVEN UORiSeW. mmi §€ 'JSt ffT04« itftES 

0420: ; TERUGGEZET IS. 

0430 : I 

0440: ; DIT PROGRAMl^iA SAA" £^VA\ DA'^ D£ PATCHES D~EL 

0450: ; 1 £,\i D£E;_ 2 ZYN AAnG£BRAC-)T ; IS D:"!" ME" Hc"^ 

0460: ; VAL, DAN MOET DE WAARDE VAN 'P'CHVl' GELYK G£- 

0470: : STE:-D WORDEN AAN 'PTCHV2', ENi UEL AAN $2456: 

0480: ; BOVENDIEN MOET ER E£N Tv«j££DE PATCH-V£^.D (*2AE5) 

0490: ; ANAlOOG AAN D£ EERSTE GtVU^D WORDEN. 

0500: : TENSLOTTE MOE' DAN DE ROUTINE ' SETPRT' TQE3E- 

0510: ; VOEGD WORDEN AAN DIT PROGRAM^A, CO D£ PJOtTE\t 

0520: ; AlS output VOOR D£ TAPE-CCNTROLE T£ ZETTENi. 

0530: ; AlLE CHARACTERS DIE AAN BASIC WQRDEN AANGEBODEN 

0540: ; VANUIT DE INPUT-FILES, WORDEN OOK OP DE TERMl- 

0550: ,. NAL GEPRINT ZODAT ' MEEGEKEf^EM* 0m WOf?0£N Wftt 

0560: : ER AAN BASIC GEGEVEN WORDT. 

0570 : ; 

0580: : GEBRUIKTE VELDEN EN ROUTINES ! 

0590 : : 

0600: EO 00 INDADR * $00E0 

0610: E5 00 INPPNT ♦ INDADR +05 

0620: E6 00 INMAX * INPPNT +01 

0630: £7 00 FILEIN ♦ INMAX +01 

0640! Sa 00 SAVEX * FILEIN +01 
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E§E 5 □ S 



PftSE ©2 



0650 : 
0660 : 
0670 : 
0680 : 
0590 : 
0700 : 
0710: 
0720 : 
0730 : 
0740 : 
0750 : 
0760 : 
0770 : 
0780 : 
0790 : 
0800: 
0810: 
0820 : 
0830: 
0840 : 
0850 : 
0860 : 
0870 : 
0880 : 
0890: 
0900 : 
0910: 
0920 : 
0930 : 
0940 : 
0950 : 
0960: 
0970 : 
0980 : 
0990 : 
1 COO : 
1010: 
1 020 : 
1 030 : 
1 040 : 
1 050 : 
1060: 
1 070 : 
1 (1)80 : 
1 090 : 
1 100: 
1 110: 
1 120: 
1 1 30 : 
1 1 40 : 
1150: 
1 160: 
1 170: 
1 180: 
1190: 
1 200 : 
1210: 
1220: 
1230: 
1240: 
1250: 
1260: 
1270: 
1210 s 



9D00 



E9 00 
Eft 00 
F3 00 
36 02 
02 17 

40 17 

41 17 

42 17 
80 17 
E7 17 
E8 17 
EC 17 
32 19 
4C 19 
Eft 19 
F3 19 
00 1ft 
24 Ifl 
41 1ft 
2F IE 
5fi IE 
8C IE 
flO IE 
65 42 
CF 44 
00 W 



9D00 


fl9 


00 




9002 


85 


E5 




9D04 


ft9 


11 




9D06 


BD 


DO 


44 


9D09 


09 


9D 




9D0B 


80 


Dl 


44 


9D0E 


4C 


&5 


42 



9D11 20 CS m 
9D14 06 E5 
9D16 BD 53 
9019 FO OB 
gOlB 48 
901 C 20 fiO IE 
9D1F 68 
9D20 E6 E5 

90^ m m 90 



SflVEY * 
SfiVEP * 
TMP * 
SETPRT « 
SftD * 
SBD * 
PBDD * 
SBD2 * 
PTCHVl * 
CHK^ * 
CHKH * 
VEB # 
INTVEB * 
CHKT ♦ 
INCVEB ♦ 
RDBYT * 
PflCKT 
RDCHT 
RDBIT 
CRLF 
GETCH 
Ii\iIT 
DUTCH 
BASIC 

PTCHVl 



* 
« 
* 
* 
* 

♦ 
* 
* 



SftVEX 
SftVEY 
SftVE^ 
$0236 
$1702 
$1740 
SBD 
PBDD 
$1780 
$17£7 

chkl 

$17EC 
$1932 
$194C 
$igEft 
$19F3 
$1000 
$1024 
$1041 
$1E2F 
$1E50 
$1E8C 
$lEft0 
$4265 

wiiM m- 



+01 
+01 
+09 



+01 
+01 



+01 



STORT VfWi WiT PROGRft!»!Mfi: 
DE 'JSR GETCH' (IN NOG NIET BELftDE^- VGRMJ 
WORDT VERftNDERD IN EEM 'JSR REOEl'. 
M^Q[I&Ig8_yOOR DE DPcNHMGS-ONTW00R3£\' 



LDoiM $00 cimn mm^fi 

STOZ INPPNT 
LDOIM REODl POTCH *JM, BETCH' 
STO PTCHV2 +01 
LDftiM REfiDl / 
|T« PTCHV2 +02 

iPSIC-- SmST WET BASIC 

EERSTE L^8-f?0UTI\'E: 
DEZE ROUTINE GEEFT S'EEDS EE;\' VOlGENDE 
WftORDE UIT DE TftBE^, IN'DIEN BftSIC DfO EEN 
CHOROCTER VRflfiGT, IS HEX DOOR TE G£VE\ 
CHOROCTER $00, DON WORDT DE 'JSR 6ETC-:' 
(IN DE GELODEN VORM) VERONDERD IN EE\ 
EN DOflRNft NO DEZE RO'JTIME 

mmmm mnj basic wacht op de eubb-^e 




SflVflLL SOVE X Y P 
LDXZ INPPNT riOflL POINTER IN TftilEl. 
LDOftX TOBEL HftOL EEIM C*lftM Ofa 
BEQ REODl 0 $C0 
PHO SOVE ftCCU En PRINT 

JSR OUTCH WflT ER NflOR BftSIC Sflflj 
PLO RESTORE ftCCU 

INCl INPPNT V^g:^ POINTER 



LUODSJaftftOI^A^^Op'ftAMrtA 



PASS Q3 







C- /*! 






pre 




EH RETOUR 






CQ 

M J 








R£fiD2 


PfiTCH PTCHVl ' ^ 


I o 1 u • 




OiJ 


A 1 
cJ i 


1 7 




PTCHVl 


+01 


■* TOA ■ 
i. UjCU " 




H 3 


QH 




LDOir^ 


REfiD2 


/ 


* vJv-'U ■ 




Gu' 




7 


gyp 


PTCHV 1 


+02 


I o^iU ■ 


Ci n M 


C\C\ 

N 


V ■ 




LDfilM 


*00 


INITIfiLISEER D£ 






OU 


c=; 
— u 




STfiZ 


LMPPNT USES-ROUT Il^es 


i TCA " 

I obU « 




oD 


CID 




STfiZ 


INMfiX 




1370 5 






C7 
t / 




STftZ 


FIUEIN 








A 


3& 






RSAD2A 






























: ruEEm LfEi 'TOTIHiE! 


,i4i©:i 










; Dtzz rgut: 


NE BEPPfiLT OF ER NC3 










: Dfi^H IN d; 


: I\GE_E2£Ni :\':^L:T-B:-.F-"E:^ S""AA.M, 












: ZONEE WORE 


M ER EE 


:n MEUW pHSCfi^-^ECCRD 


1 440 ! 










! GE'-.EZEN, ZCJfi DAiV W09DT h::.T VJLGEMDE 


^ /. CA a 












fiflN BASIC GESEVE.Ni EM 6jiPR,M"'. 


1 4bU - 










* 






J 470 ! 




•"'A 


Lo 


on 


S£flD2 J3R 


SfiVfiLL. 




i 480 ! 


9D3E 


AQ 
HV 


A A 




READ2fi -.Dflir 


BjFF-R 


1 49U ! 


9D40 


B3 


CA 






I.MDflD.-l 




1 500 5 


3D42 


h9 


9f 




l-Dftl.'^ 


BjF~£R 


/ 


9044 


8b 


cl 




STfiZ 


IivJDhDR 


+01 


ISfOf 


9046 


fna 


C.5 




LDPZ 


INPCi-MT 


BUFr-.-R w££.bat_iZj:N ? 




yD4B 


Cw 


£6 




CMPZ 


INwfiX 




1 540 ! 




UO 


/i n 




B\'E 


REfiD2G 


MEE SEE^ VCGEMDE ChAR 


1550 5 


9D4C 


20 




. - 


1^ T% ^ l". 

RcADjiB Jb-v 


SE'^-'R'' 


SE C„^"'J''"-PQCRT 


1 D&O ! 


^D4^- 


20 


L'c 




JSR 


... :;. z. 3 ^ 




lafO ! 




jiU 


ou 


4- 


JSR 


IMIT 


RESET PQ.Q.^T£M 


15805 




H3 


Hi 




lDAZ 


FI_EI,Ni 


EE^J ID~flfC ^EjJsiACHT? 


1 bSv ! 


n/*i 


AA 

Oh 




BNE 


R£fiD2C 


NiEE 


4 .'^ AA • 




cc 
tfa 


t f 




I\CZ 


FIlEIN 


F_flG ID-REC 


^ b 1 U e 




OA 
HO 


A A 








HfiftL i-;:.:' e-RS"£ Ci-AR 


1620 5 




Ci ■* 
Di 


£0 




LDftlY 


T IV I T\ ^\ n 




i 630 ! 




La 


US 








E£l\i ID-REC 


1 640 : 


9Dbl 


FO 


era 
£9 




BEU 


R^fiD2B 


Jfi , LEES VC;_G£:NiD£ 


i 050 ! 




TQ 

>io 






R£PlD2C SEC 




BEPflftL LiNGTE BuF-£R 


"4 C f f'i u 




A^ 


Z-J 


■{ 7 


^Da 


VES 


+01 


lo70» 




£.3 


AA 
OO 






BuF-ER 




lotK.' « 


one Q 


OD 


CP 




STfiZ 


:.\!»!fiX 




1 630 . 


a AC Ti 


AQ 


AA 




l_DflIl»t 


*00 


RESET :■^I^^TER 


^ "T/*tA 

* 700 ! 


SDdD 


85 






STfiZ 


i.mppnt 




« *7 1 A 1! 

* 7 1 0 If 




AD 
HO 






lav 




KYK 0^" SLMS EG--REC 


4 "TO A # 

1 720 - 


Q'^T A 

yD7t' 


SI 


n*A 

U.V 




LDAIY 


iNDflDR 




1 7o0 ! 


907^ 


U3 


Af* 

00 






*0C 




1 740 ! 


9D74 


TV A 

DO 


23 




BNE 


REfiD2G 


ivEE 


1750! 


9D7& 




AA 

00 




REflD2D LDXir 


*C0 


VRfiflu 0- \'l3 fflEER 


1750! 


9D7a 


BD 


5"" 


9c 


READ2E LDftAX 


Tfi3Ei.2 


Hfifi.. £:^J C'^flR 


1770! 


9D7B 


^0 


AA 
HO 


1&. 


JSR 


DUTCH 


PRINT h£T 


1780! 


907£ 


a 

ta 






IMX 




VERHCOe POINTER NAAR TAB2 


1730: 


9D7F 


£0 


17 




CPXIM 


$17 


PLlES GEDR" 


1800: 


9D81 


DO 


F5 




BME 


R£flD2£ 




1810: 


9D83 


20 


5n 


IE 


JSR 


GETC-; 


HfifiL fiMTUOORD 


1820: 


9086 


48 






PHh 




SAVE fl^TW 


1 830 ! 


3D87 


20 




IE 


JSR 


CRlF 


EEN NW£ g£§g*. aVP 


1 840 : 


9D8A 


68 






PlA 




RESTORE 


1850: 


9D8B 


C9 


4E 




CWPIM 


' N 




1860S 


9D8D 


DO 


03 




BNE 


R£fiD2F 






iD8F 


4C 


fl8 


9D 


JMP 


EINDE 


S;.UIT DE -f-ENT AF 


11801 mm 


C9 


59 




fm&2f CMPIM 


' Y 




1890! 


9D94 


DO 


EO 




BME 


REfiD2D 


STOMf^E VEN"' 


1900: 


9D96 


4C 


26 


9D 


JMP 


REflDlft 


INIT WEER flL.L£S 


imos 


iifl 


<^ 


m 




R£fiD2S U5YZ 


IINlPPNT 


HAAL POIME,R 




m m 






tmpm 
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KENMER 



PflSE 04 



9090 Bl W - • LDftlY INDODR MftflL SEN CHfiS CP 

g09F 48 PHfi SftVE HET 

9DflO 20 ftO IE JSR DUTCH 

9Dfl3 63 PLO RESTORE HET 

9004 20 m m ■ JSR MtSLL RESTD9E X,Y,P 

9Dfl7 60 RTS EN RETDUR 

EINDE: 

RESTORE DE 'JSR GETCH' EM S^'R:^^6 
NfiftR DIE ROUTINE , ER wERO Or EEN 
CHfiRflCTER SEVRflfiGD NIE^'WftflR ? 
LOOT NOG W£^ EVEN MERHEN DAT 
D£ CON^^RCLE NIET 
PROGRfl:^MA LCOP'. 



1^ ¥jtt D'^ 



9Dfl8 


ft9 


53 




i 


■INDE LDfilM 


GSTC- 


9Dfift 


8D 


81 


17 




STR 


PTCHVl +01 


9DflD 


1=19 








LOPI?^ 


GETCH / 


9DflF 


80 


82 


17 




s-^fl 


P-CHVI +01 


9DB2 


fl2 


00 






LDXlr*1 


«00 


9064 


BD 


76 


gE 


EIN0E1 LDfiftX 


TflBE-3 


9DB7 


20 


flO 


IE 




JSR 


DUTCH 


90Bfl 


E8 








I MX 




9DBB 


EO 


2B 








*2B ftLLES SE.HflD 


9DBD 


DO 


=•5 






B^iE 


EINDEl 


9DBF 


20 




IE 




JSR 


CRLF 


9DC2 


20 


03 


90 




JSR 


RESflLL mTQm ^LES 


9DC5 


4C 


5ft 


IE 




Jirp 


S£"TH 












***** 


FIlE 03 ***** 



goes 48 
9DC9 86 E8 
gOCB 84 E9 
9DCD 03 
9DCE 68 
9DCF 85 
9DDi 68 
9DD2 60 



9DD3 48 
9DD4 06 ES 
9DD6 ft4 E9 
9003 05 Eft 
gODfl 43 
9D0B 23 
9DDC 68 
9DDD 60 



9DDE PiD 02 17 
9DE1 29 FO 
9DE3 8D 02 17 



SfiVfiLL : 
SPVE X.Y,P 
TflSTEN. 



mm^ M mm mn te 



SflVflLL PHfl 
STXZ 
STYZ 
PHP 
PLO 
STftZ 
PLO 
RTS 



SflVEX 
SflVEY 



SflVEP 



RESflLL : 

RESTORE X,Y,P ZQNDER DE ACCLi Pihm 
TftSTEN. 

^ESALL PHfl 

LDXZ SflVEX 

LDYZ SPVEY 

LDflZ SflVEP 

PHfi 

PLP 

PLA 

RTS 



L^S-ROUTINE: 
M:ZE LEES-RCUTINE IS ANflLOOB AAM D£ 
ROUTINES VAN rrlCRO-ADE En PASCAt-XO. 



LEESF LDA SAD 
ANDIM $FD 
STA SAD 
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2580 : 
2590 ! 
2600: 
2610: 
2620: 
2630 : 
2640 : 
2650 ; 
2660! 
2670: 
2680 : 
2690: 
2700 : 
2710: 
2720: 
2730: 
2740 : 
2750 : 
2760 i 
27701 
2780 : 
2790 : 
2800 : 
2810: 
2820 : 
2830 : 
2840 : 
2850 : 
2860 : 
2870 ; 
2880 : 
2890 : 
2900 : 
29101 
2920: 
2930 : 
2940 : 
2950 : 
2960 : 
2970 : 
2980 : 
2990 : 
3000 : 
3010: 
3020 : 
3030 : 
3040 : 
3050 : 
3060 : 
3070 : 
3080 : 
3090 : 
3 1 00 : 
3110: 
31201 
3 1 30 : 
3140: 
3150: 
3160: 
3170: 
3 1 80 : 
3190: 





pi J 


TC 

/ ■ 
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An 
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An 
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VEB 
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■"■(") 








JSR 


INTVEB 




QnPA 
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LDftIM 


BUFFER 






An 


FD 


17 




STfi 


VEB 


+ 




Q9 


9F 






LDfll^ 


BUFFER 


/ 




An 




17 




STfi 


VEB 


+ 


9DFE 


09 


13 






LDftIM 


$13 




9E00 


8D 


42 


17 




STfi 


SBD2 




9f63 


20 


41 




SYNC 


JSR 


RDBIT 
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46 


F3 






LSRZ 
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9E03 


05 


F3 
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TMP 




■7 C V rn 
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STfiZ 


TMP 






AD 


40 


17 




STfi 


SBD 






L/ -7 


1 f, 




TST 


CMPIM 


$16 
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DO 
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X n 




JSR 


RDCHT 




c?P1 f. 




40 


17 




STfi 


SBD 




qpl 9 




2fl 






CMPIf*! 


$2fi 




QP 1 R 
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BNE 
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3t 1 iJ 
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1 noni''" 
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1 ny T 






oc 1 cr 
3_ 1 r 
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J. H 
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vj 0 r\ 


DOrK'T 
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BME 






9E2B 










n~ y 

ij i_ A 






9E2C 


DO 


Fl 






BNE 


REflDIT 




9E2E 


20 


4C 


19 




JSR 


CHKT 




9E31 


20 


EC 


17 




JSR 


VEB 




9E34 


20 


Efl 


19 




JSR 


INCVE3 




9E37 


4C 


ID 


9E 




Ji*IP 


LOftDIT 




9E30 


20 




19 


ENDRD 


JSR 


RDBYT 




9E3D 


CD 


E7 


17 




cnp 


CHKL 




9E40 


DO 


fifi 






BNE 


fiSftIN 




9E42 


20 


F3 


19 




JSR 


RDBYT 




9E45 


CD 


£8 


17 




CMP 


CHKH 




9E48 


DO 


P2 






BNE 


fiGfilN 




9E4fl 


RD 


02 


17 




LDfi 


SflD 




9E4D 


09 


02 






ORfilM 


$02 




9E4F 

S^2' 


8D 


02 


17 




STfi 


SfiD 




60 















9E53 34 
9E54 30 
9E55 32 
9E56 39 
9E57 32 
9E58 OD 
9E59 36 
9E5ft 34 
9E5B OD 
9E5C 59 
9E5D OD 
9E5E 00 
9E5F 23 
9E60 23 
9E51 20 
9E62 4D 



; DIVERSE TflBELLEM £0 

» 

tftBEL = 



TfilEL2 
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'4 
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$0D 
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___pfiBE^O^ 

l»«tt«*ttt«t»*t«««*«t*iftWttt«*W**t*tt*ftt«f*ttlHHtttiitt 

BflSICODE-2 VOOR DE JUNIOR NET 
S Y « - B fl S I C 

•*f*«ifit«t*tt«tt*«*t«mt*«t«it««iift«t#««^^ 

DOOR: FRIDUS JONKMftN 

STUN STREUVELSLflflN 9 
5242 GD RDSMftLEN 

IN ELEKTUUR NR 240 VON OKTOBER 1983 STDND EEN ftSTIIfflL fflll 
BflSICODE-2 VODR DE JUNIOR MET KB-9-BflSIC. DE BESCHRE^^ 
HACHINETAALROUTINES ZIJN DOOR HIDDEi. VAN DE (MDERSKMi 



$0200 
t0202 
$0205 
$0229 
$022B 
$025fl 
$0261 
$026D 
$0272 
$02Cg 
$02CD 
$02D1 
$02D6 
$02F4 
$02F6 
$02F9 
$0306 
$0308 
$0300 
$030C 
$030E 
$0313 
$0315 
$0317 
$03 IC 
$031F 



fl901 
SDOOlfl 

T/B $0215 m 

81 

82 

as 

87 
7B 

7C 

88 

87 

7B 

7C 

0900 

8D001fl 

T/N $02FF Eft 

7C 

7E 

80 

82 

7B 

7D 

7F 

81 

7B 

7B 



$0413 81 
$0418 82 
$041B 88 
$0474 88 
$047B 87 
$049D 81 
$0402 82 
$0407 0901 
$0409 800010 
$04flC T/« $04BC £0 
$04DD 0900 
$040F 800010 

mm m mm m 



yiTGONGSPUNT IS DOT JE BOSIC IM EPROI"! STOAT: ZOMIET. DON 
ZIJN ER OOK ONDERE OPlOSSINGEN MOGELIJK. 
IN SY*-BflSIC WETEN DE INPUT-VECTOR ($C38F) EN DE OUTPUT- 
VECTOR ($C98B) NIET RECHTSTREEKS WIJZEN NOOR D£ fiDRESSE\ 
$0CE4 EN $0C80. flOOR NflOR TWEE SUBROUTINES. DIE OOK ERGENS 
IN DE TJil-EPROft KUNNEN WORDEN ONDERGEBROCHT. 
IN DEZE SUBROUTINES WORDT AFHfiNKELIJK VON DE DOTS OP RAW- 
ODRES $1000 NflOR DE OORSPRONKElIJKE ODRESSEN. flONGEiJEZEN 
DOOR DE VECTOREN 6ESPR0NGEN. OF NflOR DE BOSICODE-MflCHINE- 
TflflL ROUTINES GESPRONGEN. 

( ALS BIJ HET OPSTARTEN VON BASIC ODRES $1000 EEN WOORDE 
ONSELUK m m HEEFT. M IE PSIC NORMAL IE IPiitMEN. ) 



$C38F 200C0D 
$C98B 201C0D 
SUBROUTINES 
$0D0C 48 
$0D0D ADOOlfl 
$0D10 C901 
$0D12 F004 
$0D14 68 
$0D15 4CE40C 
$0D18 68 
$0D19 4CBE04 



$0D1C 48 
$0D1D flDOOlfl 
$0D20 C901 
$0D22 F004 
$0D24 68 
$0D25 4C800C 
$0D2B 68 
$0D29 4C4202 



itlt*»«mt*«*i**«iiii*t«««i«t*«ii««««#*#«i^ 
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PflSE Of 



3210: 
3220 : 
3230 5 
3240: 
3250 : 
3260 : 
3270: 
3280 : 
3290 : 
3300 : 
3310: 
3320: 
3330: 
3340: 
3%^50 « 
3360 : 
3370 : 
3380 : 
3390 : 
3400: 
3410: 
3420: 
3430: 
3440 : 
3450: 
3460: 
3470 : 
3480: 
3490: 
3500: 
3510: 
3520 : 
3530: 
3540: 
3550 : 
3550 : 



3600 : 
3610: 
3620: 
3630 : 
3640 : 
3650 : 
3660: 
3670: 
3680: 
3690: 
3700: 
3710: 
3720: 
3730 : 
3740: 
3750: 
3760 : 
3770: 
3780 : 
3790 : 
3800 : 
3810: 
3820: 
SiSOs 



9E63 4F 
9E54 52 
9E65 45 
9E66 20 
9E67 46 
9E68 49 
9E69 4C 
9E6fi 45 
9E6B 53 
9E5C 20 
9E6D 28 
9E6E 59 
9E6F 2F 
gE70 4E 
9E71 29 
9E72 20 
9E73 23 
9E74 
9E75 
9E76 
9E77 
gE78 20 



20 
23 
23 



45 
20 
56 



9E79 
9E7fl 49 
9E7B 4E 
9E7C 44 
9E7D 
9E7E 
9E7F 
gE80 41 
9E81 4E 
9Ea2 20 
9E83 49 
9E84 4E 
9E85 4C 
9E86 45 
9E87 5fl 
9E88 45 
9E89 4E 
9E8fi 20 
9EaB 50 
gE8C 41 
9E8D 53 
gE8E 43 
9E8F 41 
gEgO 4C 
9Egi 2D 
gE92 46 
gE93 4F 
9Eg4 52 
gE95 4D 

gEge 4i 

9Eg7 54 
9E98 20 

9Egg 46 

gE90 49 
9EgB 4C 
9E9C 45 
9E9D 53 
9EgE 20 
gE9F 23 
9EA0 23 





M 




m 




as 




s 








m 












ss 








St 




3 








m 








m 




as 




» 








s: 








» 








* 












s 




s 








a 




3 








a 




a 




a 




a 




a 




'a 




a 




a 




a 




a 




a 




a 



'□ 

'R 

T 

'F 
' I 

» ( 

'E 
'S 

» 

' ( 
' Y 
'/ 
'N 
' ) 

1 

'# 
'# 

1 

'i 

T 

'E 

' I 

'N 

'D 

'E 
1 

i 

'I 

•i 

'E. 
»Z 

*n 

7 

'P 
'ft 

»s 

'C 

'A 

'L 
» _ 

»S 
'R 

♦m 

'ft 

'T 
« 

'1 

*k 
*f 

*i 

» 

*« 



MICRO - ODE ASSEMBLER. DIS- 
ASSEMBLER _EN TEKSTEDITOR. 

Sinde kort heeft onze club 
de cooyriahts verworven van 
dm Micro-Ade van Peter Jen- 
ninos van Micro-Ware Ltd. 
Imiddels hebben vele leden 
de Micro-Ade od hun svsteew 
draaien. Het is aeschikt om 
oo a lie 6502 svstemen te 
draaien, door eniae wijzi- 
ginoen aan te brenoen. alff 
ook is gebeurd bij JUNIOR. 

Manual + 

Coinmand Review 35.00 

Source 4K KIM M,QQ 
Source 8K JUNIOR 
Cassettes in hvoertaiMi 

Cassette 4K KIM 12.50 

Cassette 8K KIM it.^ 

£^«ii^te 8K JUNIQt iWM 

Bestellen door overachrii- 
ven van het verschuldiads 
bedraa oo oostrekeninanui»'~ 
mer 841433 t.n. v. W.L. viiift 
Pelt te Kriffioen a.d. Uwiiel 
of door overmakino nwir o* 
AMRO-bank aldaar t.a.V» i** 
keninq 44.11.06.471 oo naawi 
van U.L. van Pelt. Een Euro 
chiguc, fils, vrf lladio inos- 
vuld. m# iTtfif; 

COLLECTED PATCHES ON 
BASIC FOR JUNIOR. 

Meabers of our cJ«tb IMm 
Ham Otten, Ru«{d ll&fii»ff amt 
Koen van Nieuwenhove, also 
Alfons v.d. Msutter, alwavs 
tried to mkm tlw Microsoft 
KB9-Basic ilM-1 and tha 
JUNIOR mm ■-wmw-fv§mmiw» 
With t h# miw of mtmrn v. i 
Meutter now we can offer 
you the Collected Patches 
on KB9-Basic. coUji©%td W 
W.L. van Pelt. 
Besides uodatsd otiches of 
K. v. Nieuwenhovs you will 
find tN|- CMJb. iw' ikmimi 
and thm 'iip-c^|| in 'iMma^ 
decimal, you mn eharwis the 
orofflot, the iET-state(Mint 
is workino, the ROR-oatch 
eAkes you 10* faster, and 
a auotation mark blinks, 
there is a possibility to 
.]u(»D to cal««lated line- 
nuMbers. The listina con- 
tains more comaents and 
full introductions. Pay 
Fl, 15,00 to W.L. V, Pelt. 
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MEXDUMR RDUXIME V/DDR DE SEIMIDR MDIMITOR 



door! R. Banen, 

RubensDlein 7a, 
3117 BJ SchiedaM, 
tel. 010--2620334 

De Senior monitor van de firma Proton (zie ook de artikelen van de h»ep 
Franssen) heeft weliswaar de mogelijkheid om een aeheugenbereik te 
"dumoen" naar een willekeuria outoutdevice, doch dit levert een zeer 
onoverzichtelijke reeks oetallen, waaruit de afzonderli jke bvtes 
slechts moeizaam af te lezen zijn. 

Ik heb daarom een routine aeschreven waarmee een hexdumo a la junior 
verkregen wordt, uitgebreid met een ASCII-MMf^^ C«ntrol-ctMiractBP» 
worden hierbij aanaegeven met een ount. , * . . ». 

De dump kan naar keuze worden gestuurd naar de terminal of de printer. 
Od de terminal bestaat een regel uit het adres van het eerste byte 
OD die regel, 8 bytes en de OSCII-reDresentat ie van die bytes. 
Rls de totale dumo niet od het scherm past, wordt aan het eind van 
het voile scherm gewacht od het indrukken van een toets (bijv. 
soatie of return), waarna opnieuw een scherm wordt volgeschreven, enz. 
Wordt escapi^inpKJptritl, d«n wo^dt twrusgmpref^en nrnf de senior 
monitor. . ,^ , i. ^ ^* 

Od de printer is een regel gelijk oogebottliid, ■Cittitf \mm% ii» -fW^l 
16 bvtes met hun OSCII-representat ie. „ j ' 

□ok bp de printer is er een oobouw in bladzijden. Do mijn unl 
microline 80 bestaat zo'n bladzijde uit 65 repels. 

de routine ondergebracht in de file HEXD*, die bestaat 
de~volaende delen: 
de toetsvector <5> : 0506=00; 0507=02 
de routine: 0200 t/ni.O^E. 

B«brutkt Laad de routine met <L> IN=F FILE-HEXD* DISH*! 
en start hem met toets <5> . 

Dan worden achtereenvoloens gevraagd het startadres 
(FROM=), het eindadres (T0=), en het outoutdevice (OUTa) 
Na het beantwoorden van deze vragen verschi.jnt meteen de 
dunp. fils voorbeeld van printeruitvoer is een hexdumo 
van de rotitlrMi N^geveegd. 

fitfrlMlIP <L> IN»F FILE»I^D« 0ISK»1 ' 

<5>HEXDUMP UTILITY VI. 0 
FR0M=200 TD=21C 
OUT=return 

HEXDU>tf>8 020CH^E 



uit 



0 I t 3 4 9 i 7 fsmm 

0200: D8 20 EC 03 09 OE 02 03 X 1.9. ". 
0208: 20 9fi 03 20 Dfl 03 20 EO .. Z. ' 

0210: 03 RD 22 05 RE 23 05 85 .-"..»,. 
0218: 00 86 01 R2 04 



(dit als voorbeeld hoe het er od het scherm uitziet) 
.END .TIT 'HEXDUMP UTILITY VI. 0' 
.□PT GEN 
.OPT SYM 
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HEXDUMP UTILITY VI. B PROTON e50X ftSSEMBUER V4. 4 PAOE« 0001 



0001 


0000 






.TIT 'HEXDUMP UTILITY Vi.r 


0002 


0000 






.OPT GEN 






0003 


0000 






.OPT SYH 






0004 


0000 














0005 


0000 














0006 


0000 




f HEXDUMP UTILITir Wm 


iENXOR 


MONITOR 


0007 


0000 














0008 


0000 














0003 


0000 




1 ZERO pftGE mftmntm 




0010 


0000 






.EXl 






0011 


0000 






>|iS!^0000 






0012 


0000 




ftDFROM 


iHat*!-»-2 


1 


PROM-ADDRESS 


0013 


0002 




ftDTO 


*«*+2 


m 

J 


TO-ADDRESS 


0014 


0004 




POINT 


<»c«>H-»-2 


a 

t 


POINTER TO CURRENT BYTE 


0015 


000B 




HULP 


*»!««+2 


} 


POINTER FOR TEXT OUTPUT 


001 B 


0008 




BYTESL 


■f:s«:4-l 


i 


NUMBER OF BYTES PER LINE 


0017 


0009 




BYTESN 


)f:s)f:-fl 




NUMBER OF BYTES ON LAST 


0018 


000A 




NLINES 




1 


NUMBER OF LINES 


0019 


000B 




MflXLIN 




■ 


MAXIMUM NUMBER OF LINES 


0020 


000C 




CNT 






m 

1 


BYTE COUNTER 


0021 


000C 




f 










0022 


000C 




1 










0023 


000C 




1 SENIOR 


MONITOR 


LOCATIONS 


0024 


000C 




f 
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0000 






. EX 


2 
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0000 






*=*0521 






0027 


0521 




OTPDEV 




1 


iUTPUT DEVICE 


0028 


0522 




ADDR 






i 


ADDRESS BUFFEi 


0029 


0522 




} 
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0522 
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0522 




f MAIN PROGRAM 
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0522 
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0522 






>>*«*e20i 
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0200 


D8 


HEX01 


CLD 




■ 

V 


JUST IN CASE 


003B 


0201 


20EC03 




JSR 


OUTLOW 


I 


TERMim. IS AOD 


0037 


0204 


fl9ftE 




LDft 


#<TEXA 






0038 


020B 


A203 




LDX 


#> TEXft 






0039 


0208 


209^03 




JSR 


OUTPl 


t 


Pm^m^ ZD 


0040 


020B 


20DA03 




JSR 


CRLF 
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020E 


20E003 




JSR 


FROM 


m 


GET FROM ADDRESS 


0042 


0211 


AD2205 




LDA 


ADDR 






0043 


0214 


ftE2305 




LDX 


RDDR+1 






0044 


0217 


8500 




STA 


ADFROM 


» 


AND PUT IT IN ADFROM 


0045 


0219 


8B01 




STX 


ADFROM+l 
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021B 


fl204 




LDX 


*»04 






0047 


021D 


207B03 




JSR 


XSPACE 


f 


PRINT 4 SPACES 


wms 


0220 


20E303 




JSR 


TO 
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AD2205 




LDP 


ADDR 




0050 


022B 


AE2305 




LDX 


ADDR-t-1 
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0229 


8S02 




STA 


ADTO 


f 


mm Wmm it in 


0052 


022B 


8G03 




STX 


ADTO+1 
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022D 


20SD03 




JSR 


CHCK 


; 


TO) FROM? 


0054 


0230 


B003 




BCS 


HEX03 


1 






0232 


403203 




JMP 


HExes 
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20UH0O 


Lie* VAT 
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2BD403 
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HU-cl 0S 




0059 


0Z3c 


L.950 




0060 


0240 


F014 
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C90D 








r\n\cc 
U0c.r 




00B3 


0Z4o 


20DR03 






0243 


rs ni "T 

20DM03 




00bS 


024C 


A30C 




Viv&a 


024E 


8S0B 




0057 


0250 


R308 




0066 


m •"Mir '"s 

0252 

i'||iii%i|iTF' 111 


8508 

'Vuaiiliisi 




0070 


0Z34 

025d 


03 IB 


HEXku 


00/1 


0i£5D 


OD0O 




170/ ^ 


04c5H 


H33o 




00/3 


025L 


OCT DID 




00/4 


0i:.5c. 


H30O 


LJC V0l/i 

nc.A0<l' 


00 /S 


0^D0 


d50H 




WW / b 








0077 


02o4 


R203 




00 /d 


04CDb 


203R03 




00 /y 


OlOfT Q 
04£b3 


Hb0u 






0IOCD 


H501 




MOMS 4 


0ZDU 


20 c. 303 






Vi^ (Vj 






00OO 




/01P /03 




0084 


0273 


HD02 




0085 


Mi All 






00OO 


0273 


20ci303 




08^7 


027C 


20DA03 




0088 


027F 


20Dft03 




0083 


0282 


.-s |T% r\ y~v nfc rr 

20DR03 




0030 


0285 


MD00 




0031 


0287 


8504 




00942 


0289 


H501 




"i9iiiiiet'''v 
0093 


02!oo 








ffloon 
0<LOU 




lie V om 


003O 








V3<ci 3 / 


W4£.34 


3o 




10030 


0<£3S 


Of3IODOk*T 

20oj003 




0033 




h20Z 




01 00 


oioa/\ 


4£.07d03 




0101 


029U 


Co 




01BZ 


flIOOC 
04C3C. 






0 1 D--' 


oiortni 
04£!H0 


U0r ^c! 




rn i 171/, 




AOOIO 

H20^ 




0105 


02H4 


207O03 




010S 


02ft7 


flSCD 




0107 


02^3 


A203 




0108 




209A03 




0109 


02AE 


20DA03 




0110 


02B1 


20DA03 


HEX 11 


0111 


0264 


A608 




0112 


02B6 


860C 




0113 


02B8 


A604 





JSR CRLF 
JSR MHERO 
LDft OTPDEV 
CMP #' P' 
BEG HEX02 
CMP #*0D 
BNE HEX03 
JSR CRLF 
JSR CRLF 
LDA #>0C 

MR XL IN 
LDft #*08 
STft BYTESL 

I1EX04 
LDft #»10 
STR BYTESL 
LDR *«38 
STft MftXLIN 
LDR #4^03 
BTR NLINES 
LDft #<TEXB 
LDX #>TEXB 

sm ouTPi 

LDX ftDFROM 
LDR RDFROM+1 

JSR Hmt 

LDft #' 
JSR OUTRLL 
LDX RDTO 
LDR RDTO+l 
JSR MRRX 
JSR CRLF 
JSR CRLF 
JSR CRLF 
LDft RDFROM 
STft POINT 
LDR RDFROM+1 
STR Pdt«f*i 
LDX #*07 
JSR XSPflCE 
LDY tt»00 
TYft 

JSR PRNIBL 
LDX »»02 
JSR XSPflCE 
I NY 

CPY BYTESL 
BNE HEX06 
LDX #«02 
JSR XSPflCE 
LDft #<TEXC 
LDX #>TEXC 
JSR OUTPI 
JSR CRLF 
JSR CRLF 
LDX BYTESL 
STX CNT 
LDX POINT 



? flSK FOR OUTPUT DEVICE 

} WRS IT PRINTER ... 

? ... OR TERMINftL? 

! OUTPUT DEVICE NOT VALID 

? SET MAXLIN FOR SCREEN 

? SET BYTESL FOR SCREEN 

5 SET BYTESL Fg^ PRINTER 

. l: lET MftXLlW; ''WM 

; HEADER CONTAINS 3 LINES 

» PRINT "ICXDUMP: " 

? OUTPUT STRRTRDDRES8 

i OUTPUT "-" 

5 OUTPUT ENDADDRESS 

; CLOSE LINE ... 

I ... AND SKIP TWO Wm 



? SET UP BYTE f»DlNTEi 

? PRINT 7 SPACES 

5 OUTPUT ONE NIBL 

% AND TWO SPACES 

J FOR BYTESL COLUMNS 

? TWO MORE SPACES 

I OUTPUT "ASCIIS" 

{ CLOSE LINE 

» SET UP BYTE COUNTER 



LUODSJaMOyAllOp'MMM 

PE : §— ^ 1 g I I g— J KENMER 

HEXDUMP UTILITY VI. 0 PROTON 650X ASSEMBLER V4. 4 PftGEs 0003 



3114 


02BA 


A505 




LDft 


POINT+1 






3115 


02BC 


20E903 




JSR 


WRAX 


t 




311G 


02BF 


ft93ft 




LDft 


#' 






3117 


02C1 


20D703 




JSR 


OUTALL 


• 


OUTPUT 


3118 


02C4 


207E03 




JSR 


PRSP 


f 


AND A SPACE 


3119 


02C7 


P000 


HEX 10 


LDY 


#«00 






3120 


0209 


B104 




LDR 


(POINT) , Y 


• 

» 


GET A BYTE 


3121 


02CB 


20EG03 




JSR 


NUMA 


? 


AND PRINT IT 


3122 


02CE 


207E03 




JSR 


PRSP 


1 


FOLLOWED BY A SPACE 


3123 


02D1 


A001 




LDY 


#»01 






3124 


02D3 


B90200 


HEX08 


LDft 


ADTO7 Y 






3125 


02D£ 


090400 




OMP 


POINTi Y 


? 


POINT»ADTO? 


ai2G 


02D9 


D00S 




BNE 


HEX 07 


■ 


IF EQUAL END OF HEXDUMP 


3127 


02DB 


88 




DEY 








3128 


02DC 


10F5 




BPL 


HEX08 


■ 

1 


COMPARE NEXT BYTE 


3129 


02DE 


3007 




BMI 


HEX09 


? 


END OF HEXDUMP 


3130 


02E0 


208403 




JSR 


INCPNT 


? 


INCREMENT POINT 


3131 


02E3 


0600 




DEC 


CNT 


■ 

1 


DECREMENT BYTE COUNTER 


3132 


02ES 


D0E0 




BNE 


HEX 10 


■ 

1 


IF ZEROi END OF HEX FOR LINE 


3133 


02E7 


A508 




LDA 


BYTESL 






3134 


02E9 


38 




SEC 






» . 


3135 


02Efl 


E50C 




SBC 


CNT 


u 


GET NUMBER OF OPEN BYTES ON Ll||| 


313G 


02EC 


8509 




STft 


BYTESN 






3137 


02EE 


0500 




LDft 


CNT 






3138 


02F0 


F00O 




BEE! 


HEX17 


• 

f 


IF CNT=0 IT WAS A FULL LINE 


3139 


02F2 


18 




CLC 








3140 


02F3 


6500 




ADC 


CNT 


f 


IF NOT GET NUMBER OF SPACES 


3141 


02F5 


6500 




ftDC 


CNT 






3142 


02F7 


38 




SEC 








3143 


02F8 


E903 




SBC 


««e3 






3144 


02Fft 


OP 




TAX 








3145 


02FB 


207B03 




JSR 


XSPACE 


1 




314G 


02FE 


0504 


HEX 1 7 


LDA 


POINT 






3147 


0300 


38 




SEC 








3148 


0301 


E509 




SBC 


BYTESN 




GET START POINT FOR ^(SI| «ifWaf 


3149 


0303 


8504 




STA 


POINT 




3150 


0305 


P505 




LDA 


POINT+1 






3151 


0307 


E900 




SBC 


#^00 






3152 


0309 


8505 




STA 


POINT+1 






3153 


030B 


A203 




LDX 


#$03 






3154 


030D 


207B03 




JSR 


XSPACE 


1 


OUTPUT 3 Sf^ACES 


3155 


0310 


A608 




LDX 


BYTESL 






315G 


0312 


8600 




STX 


CNT 


? 


SET UP BYTE COUNTER 


3157 


0314 


H000 


HEX 13 


LDY 


#$00 






3158 


0316 


Bl 04 




LDA 


( POINT) » Y 


; 


GET A BYTE 


3159 


0318 


297F 




AND 


#*7F 


; 


CLEAR BIT 7 


31G0 


031ft 


0920 




CMP 


#' ' 


1 


ASCII-FILTER 


31G1 


0310 


904A 




BCC 


HEX 12 






31G2 


031E 


097F 




CMP 


#*7F 






3163 


0320 


F046 




BEQ 


HEX 1 2 






31G4 


0322 


20D703 


HEX I B 


JSR 


OUTALL 


J 


OUTPUT CORRESPONDING ASCII 


3165 


0325 


A001 




LDY 


#>01 






31 6G 


0327 


B90200 


HEX 15 


LDA 


ADTO, Y 






3167 


032A 


D90400 




CMP 


POINTt Y 


■ 

1 


POINT«ADTO? 


3168 


032D 


D00ft 




BNE 


HEX 14 


i 


IF EQUAL END OF DUMP 


3169 




88 




DEY 








3170 


0330 


10F5 




BPL 


HEX 15 


m 

1 


COMPARE NEXT BYTE a q 
END OF DUMP 0 «l 


3171 


0332 


20DA03 


HEX05 


JSR 


ORLF 


m 

1 



LUO:)'SJ3MO|^A;30p'MM/.. 



^EXDUMP UTILITY VI. 0 



PROTON 650X ASSEMBLER V4. 4 PAQEi 0004 



3173 
ai74 
3175 
317G 
3177 
317S 
3179 
9180 
3181 
3182 
5183 
5184 
5185 
)18G 
5187 

)ie8 

)189 
)190 
)191 
1192 
1193 
1194 
1195 
I19G 
1.197 
I19S 
1199 
200 
(201 
202 
203 
204 
205 
20G 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
22G 
227 
228 
229_ 



40 



0335 

0338 

0339 

033C 

03 3E 

0340 

0342 

0344 

0346 

0348 

034A 

034C 

034F 

0351 

0353 

035S 

0358 

035ft 

035C 

035F 

0360 

0362 

0365 

0368 

036ft 

036D 

036D 

036D 

036D 

036D 

0360 

0361} 

036D 

036D 

03eF 

0370 
0372 
0374 
0376 
0377 
0377 
0377 
0377 
0377 
037fl 
037B 
037D 
037E 
037E 
037E 
037E 
037E 
0380 
0383 
0384 
0384 
0384 
0384 



20EC03 
60 

208403 

C60C 

D0D4 

E60ft 

ft50ft 

C50B 

D01D 

ft900 

850ft 

002105 

C90O 

D007 

200003 

ft203 

D002 

ft209 

200003 

DBFfl 

4C8O02 

4CB102 

fl92E 
4C2203 



JSR OUTLOW 



0502 
38 
E500 
0503 



60 



HEX 14 JSR INCPNT 
DEC CNT 

BME mms 

INC NLINES 
LDP NLINES 

c«p mmMi 

BNE HEX18 
LOA #»09 
STft WLlMiS 
LOft OTPDE¥ 
CMP #»0D 

JSR READ 
LDX #>03 

■ mm HiKit 

HEX21 LOX #*09 
HEX19 JSR CRLF 



HEX 12 

f 
5 
} 
i 



BNE HEX 19 
J«P HEX20 

#w Hexii 

LDft #' . ' 
JMP HEX 16 



SUBROUTINES 



5 TERMINAL IS flOO 

» Bhff), RETURN TO MONITOR 

• INCREMENT POINT 

? DECREMENT CNT 

f W CNT-0 END OF LINE 

I INCREMENT LINE NUMBER 

i COMPARE TO MAX. NUMBER OF LINES 

5 RESET LINE NUMBER 

! IF ftOD IS TERMINAL ... 

I WAIT FOR t®r m CONTINUE 

1 mi^' 2 LINES FOR TERMINAL 
1 Pi^ 8 FOR FtlNTit 



5 GO OUTPUT NEXT PAGE 

J GO OUTPUT NEXT LINE 

? REPLACE CONTROL 0«i^CTE«S 

5 BY A POINT 



? CHCK! CHECKS IF TO) FROM, IF SO C»l 
» IF NOT C«0 

« 

CHCK 



LDA ADTO 
SEC 

SBC AOFROM 
LDA ADTO+1 
SBC M^rHQN^^l 
RT8 



! GET TO-ADDRESS LOW BYTE 

; SUBTRACT FROM-ADDRESS LOW Bfft 

S GET TO-AOORESS HIGH BYTE 

I SUBTRACT FROM-AODRESS HIGH BYTE 



» XSPftCEl OUTPUT NUMBER OF SPACES IN X 

I 



Cft 

D0FA 
60 



DEX 

BNE XSPl 



0920 

m 
m 



XSPACE 

? 
I 

■ 

1 

PRSP LDft #' ' 

js« tmmjL 

RTi 

? 

5 

» INCPNTI INCREMENT POINT BY 1 
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5 □ S 



^EXDUMP UTILITY VI. 0 



PROTON B5QX ASSEMBLER V4. 4 PAGE: 0005 



3230 


0384 


E604 


INCPNT 


INC POINT 




1231 


0386 


D002 




BNE IP 




3232 


0388 


EB05 




INC PQINT+J 




3233 


038A 


60 


IP 


RTS 




3234 


038B 




? 






3235 


038B 




5 






3236 


03SB 




! PRNIBL 


: PRINT ft NIBBLE 


IN A 


3237 


03SB 




1 






3238 


038B 


290F 


PRNIBL 


AND #*0F 


? GET LOW NIBBLE 


3233 

H^jlH 


038D 


C90A 

li 




CMP #*0ft 
CLC 


} DECIMAL (1-9)? 


3241 


0390 


3002 




BMI Nft 


? YES, ADD $30 


3242 


0392 


6907 




ADC #«07 


5 NO, ADD *37 


3243 


0394 


6930 


m 


ADC #»3e : 




3244 


0396 


20D703 




JSR OUTIMO. 


t mrmt it 


3245 


0399 


60 




RTS 




324E 


039A 




i 






3247 


039ft 




m 

T 






3248 


039fl 




? OUTPls 


OUTPUT ft STRING 


OF TEXT 


3249 


e39A 










3250 


039fl 


8506 


OUTPl 


STft HULP 


5 POINTER TO STRING 


3251 


039C 


8607 




STX HULP+1 


$ . . . IS IN A AND X 


1232 




mm 




LDY tt»0e 




3253 


03A0 


B106 


puTPa 


LDft <HULP),Y 


? GET A CHARACTER 


3254 


03A2 


C93B 




CMP #' ?' 


5 END OF STRING? 


3255 


03A4 


F007 








3256 


03ft6 


20D703 




JSft OUTftLL 


1 ItlTPUT CHftRPCTER 


3257 


03A9 


C& 




I NY 




3258 


03AA 


4CA003 




JMP msfpz 




3259 


03AD 


60 


0UTP3 


RTS 




3260 


03flE 




? 






32B1 


03AE 




1 






32B2 


03AE 




» TEXT STRINGS 




3263 


03AE 




} 








mm 


«g4i 


TEXft 


.BYT 'mtmmf utility vi.e?* 


3264 


03B0 


5844 








32B4 


03B2 


554D 








3264 


03B4 


5020 








3264 


03B6 


5554 








3264 


03B8 


494C 








i2&4 




491^ 








3264 


03BC 


S92e 








3264 


03BE 


S631 








3264 


03C0 


2E303B 








3265 


03C3 


4845 


TEXB 


.BYT 'm%mnps i 




3255 

mm 


03C5 


5844 
9H4& 








3265 


03C9 


503ft 








3265 


03CB 


203B 

Mm 


TtXC 


.BYT 'ASCllil' 




3266 


03CF 


4349 








3266 


03D1 
11^4 


493ft3B 


» 






3268 


03D4 




t 






3269 


03D4 




1 SENIOR MONITOR ROUTINE VECTORS 


3270 


03D4 




? 




1 


3271 


03D4 


6C04E0 


WHERO 


JMP (*E004) 


? GET OUTPUT DEVICE 


3272 


03D7 


&C08E0 


OUTftLL 


JMP (»E008> 


1 OUTPUT A TO AOD 



5 O 



lEXDUMP UTILITY VLB 



PROTm |H|sgiiii,iR y%4 pmE t mm 



1273 03DA 6C0EE0 CRLF JMP (SEBBE) 

S74 03DD GClfiEB REftD JMP <»E01ft) 

1275 B3E0 eClEE0 FROM JMP <*E01E) 

\27& 03E3 £C20E0 TO JMP (»E020) 

mrf tsfei ec24€0 mjha jmp (♦e024> 

1278 03E9 BC26E0 WRftX JMP (*E026) 

1279 03EC EC5EE0 OUTLOW JMP (^EfS^) 

.END 



CR AND LF TO ROD 

KEY IN FROM OID, ESC: TO SENIOR 
INPUT FROM-ADDRESS 
INPUT TO-ftDDRESS 
OUTPUT BYTE IN ft 
OUTPUT BYTES IN ft ftND X 
TERMINAL IS SET TO ftOD 



«»«*« 



»#»** PRINTEN OP STAR DP 510 PRINTER 

*»**« met behulo van da Drintwrroutirw 
***** uit DE 6502 KENNER nr. 26 

***** voor d« JLillOR-comoutcr 

J. (^M. van DostroM 
Qopt*t*hout 

Met behulD van de orinterroutirwi yit DC 6502 KENNER nuowier 26 
kan ook de STAR DP 510 orint^r mwtuurd Mord*n« 4mP ©fl* deze 
printer een Cent ronics-aan»l,uitIno bvvat. 

Daar de belasting van de primter aroot is voor de VIA 
dient men onderstaande schakelina tu«Mn de printer en de VIA 

mm te nemen. 

Si toegeoaste inverters ziin van Jiet tvpe 74LS04 (zie manual 

van STAR-printer, bl.61). " 

Poort van VIA s DB l-fl . 
PBO : Strobe * 

PB2 s Busv 

PB3 : Aan/uit'schakelaar printer 

Sslectsignaal niet gebruikt. 




LUODSJ8MO|^A5:(Op'ftAMrtA 






0oor! ft. fl. Zwart ' • '■ 
Bentinckstraat 
7471 SK 600 r. 

In #e (Klitie van augustus 1983 van DE 6502 KENNER heb ik een artikel aeou- 
bliceerd met bovenstaande titel. Naar aanleidina van het feit dat er 
00k belangstell ino aanwezia is voor de schakelino od een ander adres- 
bereik heb ik od verzoek van df fl^iilff tft velgsnde wiiziQina 00 N>t a- 
dresbereik voor te stellen. 

'Naast de Vlfi 6522 bevindt zich in de JUNIOR 00k noa de PIfl 6532. In de 
standaarduitvoerina van de JUNIOR vindt er dubbeladdresserina oiaats voor 
zowel de VIA als Pifl. Indien het wenseliik is de UftRT-schakel ina te laten 
werken in pagina *1B in plaats van $19. biivoorbeeld in verband met het 
Disk Ooerating System van Koen van Nieuwenhove of van Proton, dan kan dat 



Se dubbeladressering van de PIfi 6532 kan worden uitgescliakeld door 
het toevoeqen van een inverter, bijv. een 74LS00 tussen flB9 en M35 00 de 
JUNIOR I/O-kaart (fig. 4). In de UflRT-schakel ina wordt dan N4 uitgescha- 
keld door de inaana waar 09 aanaesloten is te onderbreken en met massa te 
verbinden (fig. 5). Vervolaens wordt 09 aanaesloten od N5 (fig. 5). 
Van N5 is de ingang verbohden met de +5 volt losaekoDoeld hiervan. 
Verder verdient het aanbevelina om voor 00 t/m 09 de qebufferde adreslii- 
nen van de I/O-kaart te gebruiken. 

NB. : ftlle genoemde aansluit ingen en onderdelen hebben betrekkino oo de in 
de augustus 1983 geoubliceerde schema's. 



©e Maarheidstabel voor oagina-adresseirincj i« Iwt febied ♦180t illFF 
luidtt 




S ftB 9 KB Ad r esse ring 



Ifl :paQl«Hl 



0 ^3^ © $ 18 

1 # ' 0 * 19 

0 1 0 $ 10 

1 1 0 * IB 




+5V 



+ 5V 



+5T 





mm 



fig. 4 Toevoeging van een inverter ^i&»5 V/ijziging UART-achakeling 

op de Junior I/O kaart. naar pagina $1B. 
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Ei n S 



k:einjne;r 



PAGE 01 



0010 
0020 
0030 
0040 
0O50 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
OlSO 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 



5F 10 

D6 11 

E8 11 

8F 12 

RE 12 

34 13 

87 13 

3E 17 



*** 
*** 
*** 
*** 
*** 
*** 



TEXTFILES WITH JUNIOR 
with reference to the articls in ^ec. 1983 



Authors 



CaiYiiel de Lv 

E. Blaesstraat 7 

9218 Bent Belaii 



*** 
*** 
*«# 

*** 



In DE 6502 KENNER nr. 29, December 1983, an articlis 
was Dublished titled TEKSTVERWERKER. It was oriainsllr 
an idea of M. R. van der Laan. This author may be paved 
the way to better Droarammina in workina with textfiles. 
Here's mv contribution in which I poked in a Dossibility 
to go further on a new line and also a search-key <Z>. 
The <P>-key fetches first oaae. Usina <P> aaain oives 
next pages. The <T>-key ,iu«d to too of text. 
With <pe4-key you »t»Pt on «,p»,|4nf, i|ii||»,ie§£;) you 



ZERO PAGE 



00 


00 


SflH 




$0000 


: S 


01 


00 


SflL 


♦ 


SflH 


+01 


02 


00 


ERH 


* 


SflH 


+02 


03 


00 


EfiL 


* 


SflH 


+03 


04 


00 


EfiL2 


* 


SflH 


+04 


05 


00 


COUNT 


# 


§AH 




06 


00 


SAFI6 









STflRTfiDDRhSS 

WRITE DR READ 
ENDflDDRESS 
WRITE 

WRITE LflST ADDRESS 
^||R§^Qf_gHARS TO BE SEARCHED 



mmum mmims 



LflBJUN * 
MESSY * 
CRLF * 
PRBYT ♦ 
RECCHfl ♦ 
PRCHfl * 
INPflR * 
MESSA * 



*105F 
*11D6 
*11E8 
$128F 
*12flE 
$1334 
$1387 
$173E 



or mm to be seaici 



PRINT "LflBJUN" 

PRINT MESSAGE ON SCREEN 

PRINT <CR> & <LF> 

PRINT TWO ASCII CHARACTERS 

RECEIVE 1 ASCII CHAR FROM KEYBOARD 

OUTPUT 1 ASCII CHAR TQ SfUJEEN 

INPUT PARAMETERS 

PRINT MESSAGE 



0400 










ORG 


$0400 




0400 


20 


31 


04 


START 


JSR 


SUBl 


: FETCH BEBflD 


0403 


fl5 


00 






LDflZ 


$00 


: ENDAD AND 


0405 


80 


OF 


04 




STA 


$040F 


: PUT IT 1^ 


0408 


fl& 


01 






LDXZ 


SflL 


: S AL _ 


0400 


20 


flE 


12 


im 


JSR 


RECCHfl 


; nmm m 


040D 


9D 


00 


20 




STOflX 


$2000 


0410 


C9 


IB 






CMPIM 


$1B 


(ESCAPE) 


0412 


FO 


66 






BEQ 


LflB 


YES / USED ? 


0414 


C9 


08 






CMPIM 


$08 


( $08 )? 


0416 


DO 


04 






BNE 


DELTO 


. NO 


0418 


Cfl 








DEX 






0419 


4C 


60 


04 




JMP 


DCOUNT 


041C 


C9 


7F 




0EUTO 


CMPIM 


$7F 


(DEL) ? 


041E 


FO 


OB 






BEQ 


NIELN 


YES 


0420 


EO 


FF 




FFJANE 


CPXIM 


$FF 


KILOBYTE FXJLL ? 


0422 


DO 


03 






BNE 


TELVER ; 


NO 


0424 


EE 


OF 


04 




INC 


•04@r : 


INCR. KILOBYTE- 


0427 


E8 






TELVER 


INX 




INCR. REG» X 


0428 


4C 


60 


04 




JMP 


DCOUNT • 


042B 


20 


E8 


11 


NIELN 


JSR 


CRLF ; 


NEW LINE 


042E 


4C 


20 


04 




JMP 


FFJflNE ; 




0431 


A9 


OC 




SUBl 


LOAIM 


»0C ; 


CLEAR SCREEN 


0433 20 M 


13 




JSR 


PRCHA ■ 


WAIT 132 ffiSec. 
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KEIMNIER 



0436 fig 
0438 8D 
043B 2C 
043E 10 
0440 flO 
0442 20 
0445 20 
044B flD 
044B 85 
044D flD 
0450 85 
0452 AD 
0455 85 
0457 fiD 
045fl 85 
045C 20 
045F 60 
0460 flD 
0463 C5 
0465 DO 
0467 86 
0469 fl5 
046B C5 
046D FO 
046F 4C 
0472 20 
0475 flO 
0477 20 
047fl 4C 



80 

F7 Ifl 
F7 Ifl 
FB 
00 

3E 17 
87 13 

64 lA 

00 

63 m 

01 

65 IR 

03 

66 Ifl 

02 

EB U 

OF 04 

02 
08 
04 
04 

03 
03 

Ofl 04 
E8 U 
Ifl 

3E 17 
5F 10 



LDflIM 
STfl 

TIM BIT 
BPL 
LDYIM 
JSR 
JSR 
LDfl 
BTflZ 
LDfl 
STflZ 
LDfl 
STflZ 
LDfl 
STflZ 
JSR 
RTS 

mmr LDfl 

CMPZ 

BNE 

STXZ 

LDflZ 

CMPZ 

BEQ 

TER JMP 
FUU- JSR 

LDYIM 
JSR 

LflB JMP 



$80 

*lflF7 

$lflF7 

TIM 

$00 

MESSfl 

INPflR 

$lfl64 

SAH 

*lfl63 

SAL 

♦ lfl65 
EflL 
$lfl66 
EAH 
CRLF 

$040F 

♦02 

TER 

♦04 

♦04 

♦03 

FULL 

KEY 

CRLF 

♦ Ifl 
MESSA 
LABJUN 



PRINT "BEGAD-ENDAD" 

FETCH BEflGD-ENDflD 
TEXT AND PUT IT 
□N SflH/SflL 
EflH/EAL 



NEW LINE 
BACK 

OVERFLCW 
FOR 



NEW LINE 
PRINT "FULL'' 



; REflD/SEflRCH PROGRAM 



0980 


















0990 


. 047D 


20 


31 


04 


READ 


JSR 


SUBl 




1000 


0480 


A5 


00 




OPNI 


LDflZ 


♦00 


: FETCH BEGAD 


1010 


0482 


8D 


fl4 


04 




STfl 


♦04fl4 


: TEXT flND PUT 


1020 


0485 


A4 


01 






LDYZ 


♦01 


; IT ON SAH/SAL 


1030 


0487 


20 


flE 


12 


KEYl 


JSR 


RECCHA 


1040 


048fl 


eg 


5fl 






CMPIM 


♦5A 


■ <Z> PRESSED ? 


1050 


048C 


FO 


3F 






BEQ 


SEARCH 


• YES 


1060 


048E 


eg 


50 






CMPIM 


♦50 


: <P> PRESSED ? 


1070: 


0490 


FO 


OB 






BEQ 


PAGE 


■ YES 


1080: 


0492 


eg 


54 






CMPIM 


♦54 


■ <T> PRESSED ? 


1090: 


0494 


FO 


Efl 






BEQ 


□PNI 


■ YES 


1100! 


0496 


eg 


IB 






CMPIM 


♦ IB 


■ <ESCAPE> PRESSED ? 


1110! 


0498 


DO 


ED 






BNE 


KEYl 


NO 


1120! 


049fl 


4C 


5F 


10 




JMP 


LABJUN 


; BACK TO PM 


1130! 


049D 


20 


E8 


11 


PAGE 


JSR 


CRLF 


■ NEW LINE 


1140! 


04A0 


A2 


00 






LDXIM 


♦00 




1150! 


04A2 


Bg 


00 


30 


TEXT 


LDflflY 


♦3000 




1160! 


04A5 


eg 


IB 






CMPIM 


♦ IB 


EOM ? 


1170: 


04A7 


FO 


15 






BEQ 


VER 


YES 


1180: 


04Ag 


C9 


7F 






CMPIM 


♦7F 


NEW LINE ? 


1190: 


04AB 


FO 


OB 






BEQ 


NWLINE : 


YES 


1200: 


04AD 


CO 


FF 




FFOK 


CPYIM 


♦FF 


1 KILOBYTE FULL ? 


1210: 


04AF 


FO 


11 






BEQ 


KBFULL ; 




1220: 


04B1 


20 


34 


13 


READ IT 


JSR 


PRCHA 


1230: 


04B4 


C8 








I NY 




F0LL0WI1«^ FieUfiE 


1240: 


04B5 


4C 


fl2 


04 




JMP 


TEXT ] 


1250: 


04B8 


20 


ES 


it 


NWLINE 


JSR 


mjp ■ 


NEW LINE 


1260: 


04BB 


E8 








INX 




ADD NEW LINE 


1270: 


04BC 


EO 


OF 






CPXIM 


♦OF • 


16 LINES ALREADY t 


1280: 


04BE 


FO 


78 




VER 


BEQ 


VERS : 


YES 


1290: 


04C0 


DO 


EB 






BNE 


FFOK : 


NO 


1300: 


04C2 


20 


34 


13 


KBFULL 


JSR 


PRCHfl ; 


READ IT AND 
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1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

laoo 

1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 



04C5 
04C8 
04C0 
04CD 
04CF 
04D1 
04D4 
04D7 
04D9 
04DB 
04DD 
04DE 
04E1 
04E4 
04E7 
04E9 
04EC 
04EF 
04F1 
04F3 
04F5 
04F8 
04Ffl 
04FC 
04FE 
0500 
0502 
0504 
0506 
0508 
050B 
050C 
050F 
0512 
0514 
0517 
0519 
0510 
051B 
051D 
051F 
0521 
0523 
0526 
0529 
052B 
052D 
052E 
052F 
0532 
0535 
0537 
0538 
053B 
053E 
0540 
0542 
0545 
0547 
054fl 
054D 
054F 
0552 



8E 
fi5 



EE 04 04 
00 00 
4C 02 04 
02 00 
09 09 
20 34 13 
20 OE 12 
95 06 
C9 OD 
FO 04 
E8 

4C D4 04 
8E 05 05 
18 05 

00 

8D F7 04 
8D 04 04 

04 01 
09 00 
85 05 
B9 00 30 
C9 IB 
FO 51 
D5 06 
DO OF 
E6 05 

05 05 
C9 00 
FO OF 
20 29 05 
E8 

4C F5 04 
20 29 05 
02 00 
4C Fl 
02 00 
88 
CO 

FO 9B 
CO 00 
FO 02 
DO 03 
CE 04 04 
4C 19 05 
CO FF 
FO 02 
C8 
60 

EE F7 04 
EE 04 04 

00 00 
60 

OD 04 04 
20 8F 
84 04 
05 04 
20 8F 
09 09 
20 34 13 
4C 87 04 
00 46 
20 D6 11 
4C 87 04 



04 



SEARCH 

KEY2 

SEOWRD 



LTNUL 
TEXTZ 



12 



12 



OLLFF 



TELTRU 
TELOF 



KILMIN 

TELO 

KBYTO 



MINKL 



VERS 



WHAT 



INC 

LDYIM 

JMP 

LDXIM 

LDOIM 

JSR 

JSR 

STOOX 

CMPIM 

BEQ 

INX 

JMP 

STX 

STX 

LDO 

STO 

STO 

LDY 

LDOIM 

STO 

LDOOY 

CMPIM 

BEQ 

CMPOX 

BNE 

INC 

LDO 

CMPIM 

BEQ 

JSR 

INX 

JMP 

JSR 

LDXIM 

JMP 

LDXIM 

DEY 

DEX 

BEQ 

CPYIM 

BEQ 

BNE 

DEC 

JMP 

CPYIM 

BEQ 

I NY 

RTS 

INC 

INC 

LDYIM 

RTS 

LDO 

JSR 

STYZ 

LDOZ 

JSR 

LDOIM 

JSR 

JMP 

LDYIM 

JSR 

JMP 



$0404 

$00 

TEXT 

$00 

*09 

PRCHO 

RECCHO 

SOFIG 

♦OD 

MM^RD 

KEY2 

$0505 

$0518 

SOH 

$04F7 

«04A4 

SOL 

$00 

COUNT 

$3000 

$1B 

WHOT 

SOFIB 

OLLFF 

COUNT 

COUNT 

$00 

TELTRU 
KBYTO 

TEXTZ 
KBYTO 
$00 
LTNUL 

am 



NWLINE 
$00 

KILMIN 

TELO 

$0404 

TELOF 

$FF 

MINKL 



$04F7 
$0404 

$00 

$0404 

PRBYT 

$04 

$04 

PRBYT 

$09 

PRCHO 

KEYl 

$46 

MESSY 

KEYl 



PAQE 03 
I NCR. KILOBYTE-ADDRESS 



INITIALISE 
SHIFT CURSOR 1 X 

WRITE WORD TO Bf 
SEORCHED ON SOFI# 
<RET> PRESSED ? 
YES 

NO, INCREMENT RES X 
TOKE FOLLOWING FIGURE 
I NIT SEARCHER 
ON FIRST FIBURE 



INITIALISE 
NULL ON COUNT 



EDM ? 
YES 

FIGURi m f 

NO 

YES 

NUMBER OF FIGURES 
= 0 

YES 
NO 



iNiTiiLim 

TO WRITE SEORCHED fcH3RD 
NUMBER OF JUMPS 
BOCK OK? 

NO. OVERWRITTEN 

NO 

YES, DECR. KILOBYTE-ADDRESS 
IKBYTE BOUNDARY REACHED? 
NO 

BACK 

INCR. KBYTE-ADDR 



BOCK 
WRITE 

LAST ADDRESS 



SHIFT CURSOR X 1 

SEARCHED WORD ISN'T THERE 
A^ <^IMflT» 
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KEIMMER 



BPC-W 



PAGE 01 



B2F1 



m^m mm «b2fi 
patBh On* 

BASIC PROBRflM COMPRESSOR (see DE 6502 KENNER Feb. 1983 

»E-ftI|iI VERSION ON JUNIOR* 

THIS PATCH MAKES IT POSSIBLE TO 
COMPRESS IDENTIFIERS USED IN BASIC 
TO THE TWO LEFTMOST CHARACTERS 
WITHOUT AFFECTING BASIC KEYWORDS. 

THIS PATCH IS PLACED IN MEMORY DIRECTLY 
BEHIND BPC AT ADDRESS *B2F1 
TOR GOOD OPERATION SUBROUTINE CPVAR 
m BPC MUST BE PRESENT. (B227-B24C) 

BASICS LOOKUP TABLE MUST BE SITUATED AT 
fE9m IFIT |S NOT THEN ADJUST KEYWRD. 

IN IPC mfum $mm w 27 b2 (jsr cpvar) 

WITH $BeES rn^Fl S2 (JSR BPC-AV) 



B2F1 
B2F4 
B2F7 
B2F9 
B2FC 
B2FE 
B301 
B303 
B306 
B309 
E30B 



2B BO 
3& BO 
40 BO 
27 B2 



7A E9 
C5 E9 



00 m 



20 03 

21 03 

25 03 

22 03 
24 03 

26 03 



8E 20 03 
8C 21 03 
AS 00 
8D 22 03 
A5 01 
23 03 
00 

20 42 B3 
BE 7A Ef 
EO 00 
DO 03 

$Q m t3 



8D 
AO 



iNANS DE RUCK 
SIEKSTRAAT 11-B 
8937 AW LEEUWARDEN 
THE NETHERLANDS 

ROUTINE^ IN 8PC 
GET ♦ *B02B 
PUT * *B036 
TEST * *B040 
CPVAR * $B227 

KEYWORD LOOKUP TABLE IN g-«I,« IftSIC 
KEYWRD * ♦E97A 
ENDKEY * *E9C5 

<^iC POINTER ^ 
Wm * iOO0O 

TEMPORARY il^TA BUFFERS 



TEMPX » 
TEMPY « 
YBUF » 
TEMPTR » 
TEMPA * 
EQU « 



♦0320 
$0321 
♦0325 
»0322 
$0324 
«0326 



ENTRANCE 
SAVE STX 
iTY 
LDA 
STA 

STfl 



LOAD 



TiWPX. 
TfiMPV 
PTRR 
TEMPTR 
PTRR +01 
_ TEMPTR +01 
LDYIM $00 
JSR DECPTR 
LDXAY KEYWRD 
CPXIM »00 
mm NXTBT 
JMP RETURN 



SAVE RESISTERS 



DECREMENT PTRR. WE NEED PREVIOUS BYTE 
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BPC-flV 



PABE 02 



0650 


B310 


EO 


7F 




NXTBT 


CPXIM 


*7F 


0660 


B312 


10 


36 






BPL 


TRNSLT 


0670 


. B314 


4C 


34 


B3 




JMP 




0680 


B317 


Eft 






CMPR 


NOP 


0690 


B318 


BC 


25 


03 




STY 


YBUF 


0700 


E31B 


flO 


00 






LDYIM 


$00 


0710 


B31D 


8C 


26 


03 




STY 


EQU 


0720 


B320 


20 


2B 


BO 




JSR 


BET 


0730 


B323 


PIC 


25 


03 




LDY 


YBUF 


0740 


B326 


8D 


24 


03 




STft 


TEMPO 


0750 


B329 


EC 


24 


03 




CPX 


TEMPO 


0760 


B32C 


DO 


05 






BNE 


NOTEQU 


0770 


B32E 


fl9 


FF 






LDftIM 


*FF 


0780 


B330 


80 


26 


03 




STft 


EQU 


0790 


B333 


60 






NOTEQU 


RTS 




0800 


B334 


20 


17 


B3 


CMPRM 


JSR 


CMPR 


0810 


B337 


PlD 


26 


03 




LDfl 


EQU 


0820 


B330 


C9 


00 






CMPIM 


♦00 


0830 


B33C 


FO 


35 






BEQ 




0840 


B33E 


C8 








INY 




0850 


B33F 


4C 


06 


B3 




JMP 




0860 


B342 


38 






DECPTR 


SEC 




0870 


B343 


C6 


00 






DEC 


PTRR 


0880 


B345 


BO 


02 






BCS 


N0P6 


0890 


B347 


C& 


01 






DEC 


PTRR , 


0900 


6349 


60 






NOPG 


RTS 




0910 


B34fl 


8D 


24 


03 


TRNSLT 


STft 




0920 


B34D 


8fl 








TXfl 




0930 


B34E 


29 


7F 






ANDIM 


♦7F 


0940 


B350 


Aft 








TAX 




0950 


B351 


flD 


24 


03 


LOST 


LDfl 


TEMPO 


0960 


B354 


20 


17 


B3 




JSR 


CMPR 


0970 


B357 


flD 


26 


03 




LDfi 


EQU 


0980 


B35ft 


C9 


00 






CMPIM 


$00 


0990 


B35C 


FO 


27 






BEQ 


NOKEY 


1 GOO 


B35E 


20 


8F 


B3 




JSR 


RESflLL 


1010 


B361 


20 


2B 


BO 


NXT 


JSR 


GET 


1 020 


B364 


20 


40 


BO 




JSR 


TEST 


1 030 


B367 


90 


06 






BCC 


NOCMP 


1 OAO 


B369 


20 


36 


BO 




JSR 


PUT 


1050 


B36C 


4C 


61 


B3 




JMP 


NXT 


1060 


B36F 


20 


42 


B3 


NQCMP 


JSR 


DECPTR 


1070 


B372 


60 








RTS 




1080 


B373 


20 


95 


B3 


NEQ 


JSR 


RESPTR 


1 090 


B376 


20 


42 


B3 




JSR 


DECPTR 


1 100 


B37g 


ca 






NEXT 


INY 




1110 


B37ft 


BE 


7fi 


E9 




LDXflY 


KEYwraj 


1120 


B37D 


EO 


7F 






CPXIM 


$7F 


1130 


B37F 


30 


Fa 






BMI 


hEXT 


1 140 


B381 


C8 








INY 




1 150 


B j>3^' 


4C 


06 


B3 




JMP 


LOOD 


1160 


B385 


20 


95 


B3 


NOKEY 


JSR 


RESPTR 


1170 


B388 


20 


42 


B3 




JSR 


mxmn 


1 180 


B38B 


ca 








INY 




1 190 


B38C 


4C 


06 


B3 




JMP 


LOOD 


120O 


B38F 


flC 


21 


03 


RESflLL 


LDY 


TEMPY 


1210 


B392 


ftE 


20 


03 




LDX 


TEMPX 


1220 


B395 


fiD 


22 


03 


RESPTR 


LDfl 


TEMPTR 


1230 


B398 


85 


00 






STft 


PTRR 


1240 


B39ft 


fiD 


23 


03 




LDfi 


TEMPTR 


1250 


B39D 


85 


01 






STfl 


PTRR 


1260 


B39F 


60 








RTS 




1270 


B3fl0 


20 


8F 


B3 


RETURN 


JSR 


RESflLL 


1280' 


B3A3 


4C 


27 


B2 




JMP 


CPVflR 



LOST BYTE IS ASCII +$80 
TRANSLOTE IT TO ASCII 



RESET EQUAL FLAG 00~>EQU 
IN BPC 



COMPARE CHARACTERS 
IF THEY ARE THE SAME 
THEN FF-->E(aj 
ELSE EQU=0 



IS TEST IF BYTE IN PR06RAM=KEYW0RDBYTE 
IF NaT THEN FIND NEXT KEYWORD IN TABLE 



DECREMENT PTRR. WE NEED PREVIOUS BYTE 
TEST IF PAGEBORDER 
+01 ; THEN ALSO DEC. HI6HBYTE 

SAVE ACCU 

SUBTRACT *aO FROM LAST BYTE IN KEYWORD 
TO GET ASCII VALUE 
RESTORE ACCU 

TEST LAST IF LAST BYTES ARE THE SPm 

NO KSfrnm 

IN BPC 
IN BPC 

IN BPC 

FIND NEXT BASIC WORD 



FIND NEXT KEYWORD IN TABLE 



LOAD NEXT KEYWORD m® COMPARE 



LOAD NEXT KEYWORD AND COMPARE TO BASIC 
RESTORE REGISTERS 



+01 



IN BPC 
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all-round 




All-round Systemen Nederland B.V., Stationsweg 23, 2182 BA Hilleqom 
postbus 212, 2180 AE Hillegom. tel. 02520-19544. telex 41443 aliro nl. 

WIJ LEVEREN SNEL EN TEGEN ZEER GUNSTIGE PRIJZEN: 

Diskettes 

van verschillende merken zowel 8" als 5i". Tevens formatted en 
cleaning dikettes. 



Papier 

voor kleingebruikers ieveren wij dozen van 1000 vel 38 cm 

inktlinten 

linten en kassettes voor alle gangbare printers. 

Computernneubilair 

o.a. ideaie tafeltjes om een kompleet micro systeem op te plaatsen, 

Data -safe s 

een mini safe voor 80 x 5^", of 30 x 8" diskettes. 

Opbergsystemen 

o.a. voor diskettes, tapes, kassettes en alle maten output. 

Geluiddempende kappen 

brengen het geluid van uw printer 75 tot 90% terug. 

Alles voor uw computer 



E^E 5 D S 



JUNIOR flflN 5" SD+DD FLOPPY 



In editie 27 van augustus S3 
•aakte Koen van NieuHenhove 
uit Leuven (Belgie) tiddels 
een artikel bekend dat zijn 
disk operating systea Mt de 
controller FD 1771 klaar was 
voor zijn fl" drives en ook 
voor 5'. Het systeeo dat in 
single density draait, even- 
als dat van OHIO en PROTON, 
■aakt gebruik van de geheu- 
genplaatsen $1900-$1904. De- 
ze adressen kunnen Horden 
vrijgeaaakt zoals hij al be- 
kend aaakte in editie 25 van 
februari 19fl3. De hard- en 
software is ontleend aan ar- 
tikelen uit BYTE van aei en 
luni 1981 en het boek 'A 
floppy disk operating systea 
for the 8080' van Kenneth B. 
Uelles, uitgeaeven door BYTE 
Books. Cassettebesturing zal 
Bogelijk blijven, terttijl de 
DOS al draait aet de assea- 
bler van Moser, de KB9-Basic 
en Pascal. Koen heeft nu een 
DOS-versie aet single en ook 
double density aet 128K ef- 
fektief a.b.v. FDC 1770. 
Het 8' DOS aaakt gebruik van 
de configuratie 77 tracks, 
26 sectoren per track en 128 
bytes per sector. Het 5' DOS 
heeft 40 tracks. IBM-coapa- 
tible dus. 

Oa een indruk te geven van 
de bevelen, hier een oosoa- 
aing: Save, Run, Liaits, 6o, 
Quit, Execute, Copy, Delete, 
Directory, Exi, Free, List, 
Read, Renaae, trace, Store, 
Foraat Randoa, Undelete, 
Meatesi, Validate, Backuo, 
Key (sleutel toekennen aan 
disk), Lock (beveiligen van 
een file). 

Het aangepaste artikel is 
verkrijgbaar door storting 
van Fl. 10,= op postrekening 
B41433 t.n.v. U.L. van Pelt 
te Kriapen a. d. IJssel. Een 
Eurocheque, aits voUedig in 
gevuld, aag ook. Of overaa- 
ken op de AHRO-bank te Kria- 
pen a.d. IJssel t.g.v. bank- 
rekening 44.11.06.471 t.n.v. 
U.L. van Pelt. 

Het totale inforaatiepakket 
aet becoaaentarieerde source 
listing kost Fl. 97,50. 



VERKRIJBBflflRHEID BASIC 

Microsoft Basic KB9 of KB9 P 

Johnson Coaouter 
P.O. Box 523 
Medina, OHIO 44256 

Itty Bitty Coaputers 
P.O. Box 23189 
San Jose, CA 95153 

MSB-Verlag 
Moangoldstrasse 10 
D 7778 Markdorf 
Uest Duitsland 

Basic Coaoiler CMB 8032 en 
Coaaodore 64 

Besellschaft fur Math. Bera- 
tung ( SoftHare Dr. August 
C. Buint a.b.h. 
Kaiser-Friedrich Rino 55 
D 6200 Uiesbaden 
Tel.: (06121)842686 

5.5K zelf-ontNikkelde Basic 

J.J. Janssen 
Gerardsweg 30 
6525 RT Nijaegen 

ASSEMBLER HOSER VERKRIJBBAAR 

C54-versie (bij sekretaris) 
KIM-1 versie op band 
JUNIOR-versie dd Dand 
Ing. buro Schroder 
Ecnternachlaan 161 
5625 KC Eindhoven 
Tel. : 040 - 421821 

VERKRIJGBAARHEID PASCAL 

Pascal 00 floppy voor C 64 

Micro-Delta Holland BV 

Kaarder 100 

1625 TN Hoom 

Tel. : 02290 - 415K 

VERKRIJ6BAARHEID FKAL 
Fast Focal, een Basic-achti- 
e interpreter aet veel wis- 
undige funkties, afkoastig 
van The 6502 Prograa Exchan- 
ge, 2920 Uest Moana, Reno, 
Sv 89509, flaerica, bij« 

J.J. Janssen 

Gerardsmeg 30 

6525 RT Nijaegen. 

VERMELO DE NAM VAN UW CLUB! 



CASSEHES VOOR JUNIOR 

NR.1 FL.12,50 

Elektuur Eoroa Prooraaaer * 

Aanvulling John van Sorang, 
4-Koloa printer, Conversie 
Dag naar Heek,ZenuMslag, Mu- 
sic Box, Dokatiaer, Autoaa- 
Register Uitlezing, Lotto. 

NR. 2 a. 12, 50 

Freouentieteller aet 6522, 
List Mneaonics (7-5eqa.diBo) 
Shift, Basicode aet de SC/MP 
interface, RTTY Easy Edit- 
ing Supporter (PHE), Sinale 
Step Debug, Uallbreaker 

NR. 3 FL.1250 

Renuaber SYM-Basic voor de 
Junior, Append SYN-Baiic v. 
Junior, Basic Coapressor v. 
Junior, NPRCHA (nieuwe print 
routine op >1634), Adress 
(Micro-Ade verplaatsen), Mas 
teraind R. Vissers, Outclk 
(Klok aet 8 schakelpoorten). 

Proaraaaa's in de cassette- 
bibliotheek zijn afkoastio 
van onze clubleden of bewer- 
kingen uit het First Book of 
KIM, of anderszins. Alle 
rechten van de prograaaa's 
blijven aan de auteurs voor- 
behouden. De koften van de 
cassette zijn alleen aaar 
kostendekkend en niet be- 
doeld oa de proaraaaa's te 
kopen. DE CLUB IS EN UORDT 
SEEN HANDEL ! 

SYM-BASIC CASSE TTES v JUNIOR 
ook in te lezen aet KB9 
NR.1 FL12,50 

A. Bruto-netto/Netto-bruto 
loonberekeninq B. Hypotheek- 
berekening (H. van Hintua) 
C. Kalender D. EcuNkalender 

E. Haqiichc vierkanten 

F. Hoofdrekenen 6. Bunny, 

H. Fruitautoaaat(6.v.Rotkel) 

I. Olifant J. Ziegevecht 
K. Poker L. Maanlander M. Af 
standssoel N. Bioritaes 

NR. 5 FL. 12,50 

Service Rapoorten Bettand. 



SYM-BASIC CASSEHES v JUNIOR 
NR. 2 FL.12,50 ~ 

A. Maanlandina B. Olifant 

C. Setal Raden D. Zeeoevecht 

E. Claire (adresbestandor. ) 

F. Poker G. Vier oo een rij 
H. Zoek het Hoord I. Uoord- 
soel J. Faktuur ( Fr. Saee- 
huiizen; zie hiervoor ook de 
publikatie van Ruud Uohoff: 
(editie 28). 

NR. 3 FL. 17,50 

A. SuDerstartrek(nederlands) 
aet handleiding 

NR. 4 FL.1250 

A. Othello (cursorbestuurd) 

B. Afstandssoel C. Safari 

D. Letters schuiven (M. van 
Hintua) E. Letters/ciifers- 
soel F. Getal vertiisselen 6. 
Autodoolhof H. "Daaaen* J. 
X-soel K. Vier op een rij 
L. Puzzel M. Uitoebreide dis 
asseabler (Gerard v. Roekel) 

COMALt.KGN 



Oo de landelijke bijeenkoast 
introduceerde Ruud Uohoff de 
zelf ontHikkelde C0MAL»K6N, 
Helke vrijMel gelijk is aan 
C0HAL-80. Er is lorake van 
gestructureerd prooraaaeren 
als in PASCAL, aaar'in de oo- 
tekenstijl van BASIC. Zie de 
pag.2 in editie 30. Voor de 
JUNIOR OD band verkrijgbaar 
aet handleiding voor F.22,50 
OD giro 841433 t.n.v U.L.van 
Pelt te Kriaoen a.d. IJssel. 

CFAST5 



Tape Manaoeacnt for digital 
rtcordino. The proaraa provi- 
des JUNIOR to taoe'aanaaeaent 
of a digital cassetterecorder 
over the VIA 6522. Fattnetst 
6000 baud. Base functions) 
BET, SAVE. REUIND, INITIALI- 
SE and ABORT (juap to PM). 
The coa«and-iet is capable 
to be extended. 14 pag. incl. 
label-file. Price« FI.12,50 
nett incl. costs of transa./ 
adain. To be payed on postal 
account 841433 of Nr. U.L. van 
Pelt at Kriapcn a.d. IJssel. 



